Палиндром

[shark2010]

Люди помогите нужен код программы на паскале которая определяет является ли число палиндромом. Зарание Спасибо!!

[Arigato]

На цифры число разбивать умеете? Разбиваете на цифры, собираете в обратном порядке, сравниваете, если исходное число = перевернутому => палиндром.

P.S. Однако не знаю, можно ли число, к примеру, 1210 назвать палиндромами? Ведь 1210 = 01210.

[shark2010]

всё это понятно вот только руки никак написать не могут)))))

[Hacker19_90]

Даже боюсь спросить почему :D

[[CODER]]

  var
  i, pal, chislo, x:integer;
begin
read(x);
pal:=1;
i:=1;
chislo:=x;
while (chislo<>0) do begin
   pal:=(pal*10)+(chislo mod 10);
   chislo:=chislo div 10;
  i:=i*10;
end;
if (pal-i=x) then begin
 write('Yes');   end
  else begin
   write('No');   end;
readln;
end.

Кажется так

[shark2010]

Спасибо за помощь! Да с руками всё нормально просто влом писать )))
Всё ровно спасибо!

[shark2010]

uses crt;

var
  i, pal, chislo, x:integer;
  k: string;
  begin
clrscr;
repeat
write('Введите число:');
readln(x);
pal:=0;
chislo:=x;
while (chislo<>0) do begin
   pal:=(pal*10)+(chislo mod 10);
   chislo:=chislo div 10;

end;
if (pal=x) then begin
 writeln('Число являеться палиндромом');   end
  else begin
   writeln('Число не являеться палиндромом');  end;
 write ('Будите продолжать сравнивать "да\нет":');
 readln(k);
 until k='нет';
end.

[Arigato]

Сообщение от shark2010

Да с руками всё нормально просто влом писать

Может стоит задуматься, а зачем Вам вообще учиться?

[shark2010]

а я и не учусь))))) Я пишу коды просто над большим проектом работаю))
и подпрограммок много , а времени мало..((((

[spamer]

Сообщение от shark2010

а я и не учусь))))) Я пишу коды просто над большим проектом работаю))
и подпрограммок много , а времени мало..((((

да уж...просто нет слов...