составте программу вычесления количества трёхзначных чисел-палиндомов (чисел, которые читаются одинаково слева на право и с права на лево).
Ответы
Ответ дал:
0
program xxx;
var i, k, c, e : integer
begin
k:=0;
for i:=100 to 999 do
begin
c:= i div 100;
e:=i mod 10;
if c = e then k:=k+1
end;
writeln('кол-во палиндромов =', k);
readln
end.
Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад
10 лет назад