Задание:
Вывести на экран все трехзначные числа первая и последняя цифра одинаковая (чтобы программа работала впаскале).
Решение:
var i: integer; Begin for i: =10 to 99 do writeln (10*i+i div 10); End.
Знаете другой ответ?
Вывести на экран все трехзначные числа первая и последняя цифра одинаковая (чтобы программа работала впаскале).
var i: integer; Begin for i: =10 to 99 do writeln (10*i+i div 10); End.
Знаете другой ответ?