Question

дано трехзначное число вычислить является ли оно перевертышем

Answer 1

var
    n: integer;

begin
    read(n);
    writeln(n mod 10 = n div 100);
end.

Answer 2

без проверки для дурака и прочего

Answer 3

я вощет раньш атветил

Answer 4

program xxx;
var n, c, d, e, k : integer;
begin
wtite ('введите 3-х значное число N =');
readln (n);
c := n div 100;
d := (n div 10) mod 10;
e := n mod 10;
k:= 100*e + 10*d + c;
if n = k then write ('палиндром') else write('не палиндром')
end.
канец )

Answer 5

нда решение ваше не разу не оптимальное, уж проще в строку переводить

Answer 6

кто раньше написал в комменты - это тоже не важно, ждать пока кто решит - этого в правилах нет