Задача по определению палиндрома. Опции

[ADs]

Определить, явдяется ли заданное натуральное число палиндромом, т.е. таким, десятичная запись которого читается одинаково слева направо и справа налево.
Массивы использовать нельзя (только циклы).

[ADs]

Нашел в нете решение без Length:

Код

program Palindrom;
var k,n,m:longint;
begin
 write('vvedite chislo  ');
 readln(n);
 m:=n; k:=0;
    while m div 10<>0 do {sobiraem chislo v obratnom poryadke}
    begin
    k:=k*10+m mod 10;
    m:=m div 10
    end;
 k:=k*10+m mod 10;
 if k=n then writeln('palindrom')
      else writeln('no palindrom');
 readln;
end.

Сообщение отредактировано: volvo - 17.12.2004 18:38