Написать на паскале программу. вывести на экран - вопрос №7647038 от tatata1337 06.12.2021 03:14

Question

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

tatata1337 · Answer

// 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