Question

Найдите все двузначные числа, каждое из которых ровно на 9 больше суммы квадратов своих цифр. РЕШИТЬ НУЖНО С ПОМОЩЬЮ ПРОГРАММЫ PASCAI

Answer 1

Ответ:

10

11

34

74

90

91

Объяснение:

program z1;

var i:integer;

begin

for i:=10 to 99 do

if i-9=sqr(i div 10)+sqr(i mod 10) then

writeln(i);

end.

Answer 2

Для решения этой задачи с помощью программы Pascal, вы можете написать следующий код:

pascalCopy code
program FindNumbers;

var
  num, digit1, digit2, sumOfSquares: integer;

begin
  writeln('Двузначные числа, которые равны сумме квадратов своих цифр плюс 9:');

  for num := 10 to 99 do
  begin
    digit1 := num div 10; // Получаем первую цифру числа
    digit2 := num mod 10; // Получаем вторую цифру числа
    sumOfSquares := digit1 * digit1 + digit2 * digit2; // Считаем сумму квадратов цифр

    if num = sumOfSquares + 9 then
      writeln(num);
  end;

end.

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