Предмет: Информатика, автор: utyakov2012

дано двузначное число.выяснить является ли оно палиндромом то есть таким числом  десятичная запись которого читается слева направо и справа налево


Ответы

Автор ответа: Mishka28
0
var n:longint;
begin
  repeat
    write ('N = ');
    readln (n);
  until n in [10..99];
  if n = ((n mod 10)*10+n div 10) then writeln ('Palindrom') else
    writeln ('No palindrom');
end.
Похожие вопросы
Предмет: Алгебра, автор: botik222a
Предмет: Алгебра, автор: KillerGirl