Написать ** Паскале программу. Вывести ** экран все трехзначные числа, сумма квадратов...

Question

Написать на Паскале программу. Вывести на экран все трехзначные числа, сумма квадратов цифр которых равна 105. В программе должен быть контроль, является ли число трехзначным.

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  for var i:=1 to 9 do
    for var j:=0 to 9 do
      for var k:=0 to 9 do
        if i*i+j*j+k*k=105 then Write(i,j,k,' ');
  Writeln
end.

Результат
458 485 548 584 845 854

Comments

спасибо!