Question

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

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