Найти двузначные числа: если к сумме цифр прибавить квадрат этой суммы, то снова получится двузначное число - 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.

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы