Составьте программу вычисления количества трёхзначных чисел-палиндромов.
Составьте программу вычисления количества трёхзначных чисел-палиндромов.
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Похожие вопросы