Дано трехзначное число. напишите программу, котоая определяет, является ли число...

Question

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

Answer 1

Var  
    n, m: longint;
begin
    readln(n);
    m := (n mod 10)*100 + ((n div 10) mod 10)*10 + n div 100;
    if m = n then
        writeln('является')
    else
        writeln('не является')
end.