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

Answer 2

Программа на языке Pascal:

program ThreeDigitNumbers;

var
  number, digit1, digit2, digit3, sumOfSquares: integer;

begin
  for number := 100 to 999 do
  begin
    digit1 := number div 100;
    digit2 := (number div 10) mod 10;
    digit3 := number mod 10;
    
    sumOfSquares := (digit1 * digit1) + (digit2 * digit2) + (digit3 * digit3);
    
    if (sumOfSquares = 105) then
    begin
      writeln(number);
    end;
  end;
end.

Эта программа выводит на экран все трехзначные числа, сумма квадратов цифр которых равна 105.

Программа начинает цикл с числа 100 и заканчивает на 999, так как мы ищем трехзначные числа. Далее программа разделяет число на отдельные цифры и находит сумму их квадратов. Если сумма квадратов равна 105, то число выводится на экран.

Таким образом, программа выполняет поставленную задачу и имеет контроль, чтобы убедиться, что число является трехзначным перед проверкой суммы квадратов цифр.