Юля
5 год назад
составьте программу вычисления количества трёхзначных чисел-палиндромов(чисел,которые читаются одинаково слева направо и справа налево
ОТВЕТЫ
Milcho
Oct 24, 2020
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var ans:integer;
for var i:= 101 to 999 do
if (i div 100) = (i mod 10)then
inc(ans);
Writeln(ans);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var ans:integer;
for var i:= 101 to 999 do
if (i div 100) = (i mod 10)then
inc(ans);
Writeln(ans);
end.
788
Смежные вопросы:
