Галецкий
6 год назад
Среди натуральных трехзначных чисел вывести те,сумма квадратов цифр которых равно 14
ОТВЕТЫ
Никанор
Oct 24, 2020
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
844
Смежные вопросы:
