Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.