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

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