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

Question

Информатика

Любуся

20 августа, 07:30

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

+2

Ответы (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