Question

С клавиатуры вводится натуральное число (процедура). Оно передаётся в логическую функцию. Функция возвращает в программу TRUE, если число является палиндромом и FALSE в противоположном случае.

Это паскаль даю 95 балов

Answer 1

Ответ:

var n:integer;

procedure v;

begin

read(n)

end;

function p(n: integer):boolean;

var a,b: integer;

begin

a:=n;

b:=0;

while a>0 do

begin

b:=b*10+a mod 10;

a:=a div 10

end;

p:=n=b

end;

begin

v;

write(p(n))

end.