составте программу вычесления количества трёхзначных чисел-палиндомов (чисел, которые читаются одинаково слева на право и с права на лево).

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-12-01T13:54:01+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program xxx;

  var i, k, c, e : integer

begin

  k:=0;

  for i:=100 to 999 do

    begin

      c:= i div 100;

      e:=i mod 10;

      if c = e then k:=k+1

   end;

 writeln('кол-во палиндромов =', k);

 readln

end.