Регистрация
asabina2005
24.02.2020 13:59
Информатика
Есть ответ 👍

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

152
400
Посмотреть ответы 2

Ответы на вопрос:

bogdanshik007
bogdanshik007
4,5(28 оценок)

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.

яя82
яя82
4,7(70 оценок)
Вырежи фигуры и наклей их туда куда интуиция подсказывает

Популярно: Информатика