Среди натуральных трехзначных чисел вывести те, сумма квадратов цифр которых равно 14

Question

Информатика

Наля

21 сентября, 23:46

Среди натуральных трехзначных чисел вывести те, сумма квадратов цифр которых равно 14

+1

Ответы (1)

Знаете ответ на вопрос?

Гуша · Answer 1

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