2 задачи с натуральными числами.ДО ВТОРНИКА ОЧЕНЬ НАДО!

[deniska92]

НУЖНО РЕШИТЬ В ПАСКАЛЕ
Дано натуральное число.Нужно:
1.найти колличество и сумму чисел
2.определить ,является ли число палендромом.
ПОМОГИТЕ,ОЧЕНЬ НАДО!!

 

[Dock1100]

Дано натуральное число.Нужно:
1.найти колличество и сумму чисел

По подробней можно

2.определить ,является ли число палендромом.

Пользуйтесь поиском, такое уже было.

var
s:string;
n:integer;

function Pa(s:string):boolean;
var
i:integer;
fl:boolean;
begin
fl:=true;
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)-i+1] then
fl:=false;
Pa:=fl
end;

begin
readln(n);
str(n,s);
if Pa(s) then writeln('yes') else writeln('false');
end;

 

[deniska92]

не идёт прога с палендромами :newconfus: