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