Программа Паскаль. Дано трехзначное число. Определите, является ли его десятичная запись...

Question

Программа Паскаль.
Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0

Answer 1

Var x: integer;
begin
write('Введите трехзначное число: ');
readln(x);
if ( x < 100 ) OR ( x > 1000 ) then writeln('Ошибка! Число не трехзначное.')
else
if ( x div 100 ) = ( x mod 100 ) then writeln('1')
else writeln('0');
end.