Составьте программу вычисления количества трёхзначных - вопрос №8269672 от smartass2 03.06.2022 13:44

Question

Информатика: Составьте программу вычисления количества трёхзначных чисел-палиндромов(чисел,которые читаются одинаково слева направо и справа налево

smartass2 · Answer

// 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.