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

  • Автор темы deniska92
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

deniska92

Гость
#1
НУЖНО РЕШИТЬ В ПАСКАЛЕ
Дано натуральное число.Нужно:
1.найти колличество и сумму чисел
2.определить ,является ли число палендромом.
ПОМОГИТЕ,ОЧЕНЬ НАДО!!
 
09.11.2009
665
1
#2
Дано натуральное число.Нужно:
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;
 
D

deniska92

Гость
#3
не идёт прога с палендромами :newconfus:
 
Статус
Закрыто для дальнейших ответов.