Ответы
Ответ дал:
0
Var
A:integer;
Begin
For A:= 100 to 999 do
if Sqr(A div 100)+Sqr((A div 10) mod 10)+Sqr(A mod 10) = 14 then
Write(A,' ')
End.
Результат работы программы:
123 132 213 231 312 321
A:integer;
Begin
For A:= 100 to 999 do
if Sqr(A div 100)+Sqr((A div 10) mod 10)+Sqr(A mod 10) = 14 then
Write(A,' ')
End.
Результат работы программы:
123 132 213 231 312 321
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад