Question

Составить программу вычисления суммы двузначных чисел, которые делятся на 13. Составить в паскале

Answer 1

Var i: Integer, sum: Integer;

Begin

 for i := 13 to 99 do

   if (mod(i, 13) = 0)

     sum := sum + i;

 write( sum );

end.

Answer 2

Вот пример программы на языке Pascal, которая вычисляет сумму двузначных чисел, которые делятся на 13:

pascalCopy code
program SumOfMultiples;
var
  sum, num: integer;
begin
  sum := 0;
  
  // Проходим через все двузначные числа
  for num := 10 to 99 do
  begin
    // Проверяем, делится ли текущее число на 13 без остатка
    if num mod 13 = 0 then
    begin
      // Если делится, то добавляем его к сумме
      sum := sum + num;
    end;
  end;
  
  // Выводим результат на экран
  writeln('Сумма двузначных чисел, которые делятся на 13: ', sum);
end.

Эта программа начинает с числа 10 (минимальное двузначное число) и проходит по всем двузначным числам, проверяя, делится ли каждое из них на 13. Если делится, то это число добавляется к сумме. В конце программа выводит сумму на экран.