Предмет: Информатика, автор: шлщш

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

Ответы

Автор ответа: archery
0

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

 

Похожие вопросы
Предмет: Математика, автор: danillip