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

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

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

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.канец )

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

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

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