Найти двузначные числа: если к сумме цифр прибавить квадрат этой суммы, то снова получится двузначное число - Pascal ABC
Формулировка задачи:
Найти все двузначные числа, каждое из которых обладает следующим свойством: если к сумме цифр прибавить квадрат этой суммы, то снова получится двузначное число.
Решение задачи: «Найти двузначные числа: если к сумме цифр прибавить квадрат этой суммы, то снова получится двузначное число»
textual
Листинг программы
var i,j:integer; begin for i:=1 to 9 do for j:=0 to 9 do if (i+j)*(1+i+j)<100 then write(i*10+j,' ') end.