0 голосов
10 просмотров

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

от (40 баллов) в категории Информатика

1 Ответ

0 голосов
от Доцент (52.1k баллов)
 
Лучший ответ

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.

Добро пожаловать на сайт Ответы онлайн, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...