1. Дано трехзначное число. Выяснить, является ли оно палиндромом («перевертышем»), то...

Question

1. Дано трехзначное число. Выяснить, является ли оно палиндромом («перевертышем»), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево

Answer 1

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.