Question

Составить программу, вычисляющую сумму первых 30 натуральных чисел кратных 5 Pascal ABC

Answer 1

Ответ:

var x,s,c:integer;

begin

while c<>30 do begin

 readln (x);

 if x mod 5=0 then begin

   s:=s+x;

   c+=1;

 end;

 end;

 writeln (s);

end.

P.s. Если с ответом все в порядке, поставь знак лучшего ответа, заранее спасибо)

Answer 2

## SeqGen(30, i -> 5 * i + 5).Sum.Print

Answer 3

Вот пример программы на Pascal ABC, которая вычисляет сумму первых 30 натуральных чисел, кратных 5:

pascalCopy code
program SumOfMultiples;

var
  i, sum: integer;

begin
  sum := 0;
  
  for i := 1 to 30 do
  begin
    if i mod 5 = 0 then
      sum := sum + i;
  end;
  
  writeln('Сумма первых 30 натуральных чисел, кратных 5, равна: ', sum);
end.

Эта программа начинает с переменной sum, которая инициализируется нулем. Затем она использует цикл for для итерации от 1 до 30 и проверяет, является ли текущее значение i кратным 5 с помощью оператора mod. Если i кратно 5, то оно добавляется к сумме. В конце программа выводит сумму на экран.