Дано трехзначное число. Если число сотен равно единицам то вывести нет иначе да.
PascalABC

Предыдущий
вопрос Следующий
вопрос

program ThreeDigitNumber;

var
num, hundreds, units: integer;

begin
writeln('Введите трехзначное число:');
readln(num);

hundreds := num div 100;
units := num mod 10;

if hundreds = units then
writeln('Нет')
else
writeln('Да');
end.