Josephine HarrisС клавиатуры вводится натуральное число (процедура). Оно передаётся в логическую функцию. Функция возвращает в программу TRUE, если число является палиндромом и FALSE в противоположном случае. Это паскаль даю 95 Поинтов
ответы: 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.
29
FridrihЧтобы ответить необходимо зарегистрироваться.
