Программа Паскаль. Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0
Answers & Comments
Pashq4
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.
Answers & Comments
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.