Question

інформатика 8 клас (pascal abc)
6. Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.
​

Answer 1

var

 n, x, i, sum: integer;

begin

 readln(n);

 readln(x);

 sum := 0;

 for i:=1 to n do

 begin

 sum := sum + x;

 x := x + 5;

 end;

 writeln(sum);

end.