Question

Составьте программу в паскале для нахождения суммы чисел кратных 7

Answer 1

Ответ:

n - количество чисел

i - номер числа

s - сумма чисел

Answer 2

Для написания программы нахождения суммы чисел, кратных 7, в языке Pascal, можно использовать цикл и условное выражение. Вот пример программы:

pascalCopy code
program SumOfMultiplesOfSeven;

var
  number, sum: integer;

begin
  sum := 0;

  writeln('Введите число (для завершения введите 0): ');
  readln(number);

  while number <> 0 do
  begin
    if number mod 7 = 0 then
      sum := sum + number;

    writeln('Введите число (для завершения введите 0): ');
    readln(number);
  end;

  writeln('Сумма чисел, кратных 7: ', sum);
end.

Обратите внимание, что программа будет запрашивать числа у пользователя до тех пор, пока не будет введен ноль (0) - это будет сигналом остановки ввода. Введенные числа, кратные 7, будут добавляться в переменную sum, а затем, по завершении ввода, программа выведет итоговую сумму чисел, кратных 7.