
Thetameena
5 год назад
Дано натуральное трехзначное число. Проверить является ли оно палиндромом (читается одинакового слева на право и с права налево). Если не является - вывести ближайшее следующее число палиндром.Формат ввода:На первой строке - натуральное трехзначное число.Формат вывода:Если условие выполнено - YES, если нет - то натуральное число.Пример входных данных432Пример выходных данных434Написать на Паскале
ОТВЕТЫ

Онуфрий
Nov 9, 2020
var x:integer;
begin
readln(x);
if (x mod 10)=(x div 100) then begin writeln('YES');exit;end
else while x mod 10<>x div 100 do x:=x+1;
writeln(x);
end.
211
Смежные вопросы: