31.05.2017, 13:50
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
System.SysUtils;
function ReverseInt(N: LongInt): Longint;
var
Buf: LongInt;
begin
Buf := 0;
while N > 0 do
begin
Buf := Buf * 10 + N mod 10;
N := N div 10;
end;
Result := Buf;
end;
var
i: Integer;
begin
for i := 0 to 4000 do
if i = ReverseInt(i) then
Writeln(i);
Readln(Input);
end.
|