Страница 1 из 1
Палиндром в Паскале.Нужна помощь.
Добавлено: 13 май 2009, 01:51
priz
Уважаемые, подскажите, пропишите, как проверить в паскале является ли число палиндромом...плиз)))..масивов еще не изучали...думал на mod и div ... не получается..Жду помощи))))
Re: Палиндром в Паскале.Нужна помощь.
Добавлено: 13 май 2009, 09:06
Naeel Maqsudov
Код: Выделить всё
var
s: string;
n:longint;
i:byte;
begin
write('Введите число:'); read(n);
str(n,s);
i:=1;
while (i>=length(s) div 2) and (s[i]=s[length(s)-i+1]) do inc(i);
if s[i]=s[length(s)-i+1]
then writeln('Это симметричное число')
else writeln('Это несимметричное число');
readln;
end.
PS
Слово "палиндром" не может применяться применяться к числу.