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