няфффка
Опубликовано 6 лет назад по предмету Информатика от няфффка


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

  1. Ответ
    Ответ дан ali07

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц