Предмет: Информатика,
автор: шлщш
Составьте программу вычисления количества трёхзначных чисел-палиндромов.
Ответы
Автор ответа:
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
Похожие вопросы
Предмет: Английский язык,
автор: KYPEROK
Предмет: Математика,
автор: danillip
Предмет: География,
автор: gasmin49
Предмет: Математика,
автор: а12