Question

Помогите, пожалуйста. Задача на Паскале.


Вводится четырёхзначное натуральное число. Проверить, является ли оно палиндромом, т. е. числом, которое одинаково читается слева направо и справа налево. Если не является, то вывести ближайшее следующее число-палиндром.

Answer 1

Ответ:

program ABC;

var a:integer;

Function F(z:integer):integer;

var i,h,l,s,r,g:integer;

begin

s:=0;

i:=z;

h:=z mod 10;

l:=z div 1000;

z:=z div 10;

r:=z mod 10;

z:=z div 10;

g:=z mod 10;

if(h=l) and (r=g) then

writeln(i, '-палиндром')

else begin

s:=1;

end;

F:=s;

end;

begin

read(a);

while (F(a)<>0) do begin

a:=a+1;

end;

end.