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

Ответы 1

  • 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.

    • Автор:

      declan336
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years