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

1

Ответы и объяснения

2012-11-17T12:01:07+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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