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.