среди всех трехзначных чисел все перевертыши(ПОСЛЕДНЯЯ И НАЧАЛЬНАЯ ЦИФРЫ СОВПАДАЮТ) Через...

Question

среди всех трехзначных чисел все перевертыши(ПОСЛЕДНЯЯ И НАЧАЛЬНАЯ ЦИФРЫ СОВПАДАЮТ) Через for to do написать программу на языке паскаль

Answer 1

Var i:integer;
begin
for i:=100 to 999 do
 if (i div 100)=(i mod 10) then writeln(i);
end.

Результат:
101
111
121
131
...
979
989
999