Question

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

Answer 1

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