Question

Решите задачу на языке Pascal: Задача: Найдите сумму двузначных чисел, которые делятся на сумму своих цифр.Выведите эти числа и их сумму.​

Answer 1

Ответ:

var

 i, x, y, err, num: integer;

 s: string;  

begin

 num := 0;  

 for i := 10 to 99 do begin

   Str(i, s);  

   Val(s[1], x, err); Val(s[2], y, err);  

   if i mod x + y = 0 then begin num := num + i; Writeln('Число: ', i); end;

 end;

 Writeln('Сумма равна: ', num);

end.

Объяснение:

Answer 2

Конечно, вот решение задачи на языке Pascal:

pascalCopy code
program SumOfTwoDigitNumbers;

var
  number, digit1, digit2, sum, totalSum: integer;

begin
  totalSum := 0; // Инициализируем общую сумму
  
  writeln('Двузначные числа, которые делятся на сумму своих цифр:');
  
  for number := 10 to 99 do
  begin
    digit1 := number div 10; // Получаем первую цифру числа
    digit2 := number mod 10; // Получаем вторую цифру числа
    sum := digit1 + digit2;  // Считаем сумму цифр числа
    
    if (sum <> 0) and (number mod sum = 0) then
    begin
      writeln(number); // Выводим число, которое соответствует условию
      totalSum := totalSum + number; // Обновляем общую сумму
    end;
  end;
  
  writeln('Сумма этих чисел: ', totalSum); // Выводим общую сумму
end.

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