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

Есть ответ
18.12.2022
96

Ответ


var i,s:integer;

Begin

  for i := 100 to 999 do

    if (i mod 10 = i div 100) then s=s+1;

 

  writeln(s);

End

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.