інформатика 8 клас (pascal abc)
6. Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.
6. Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.
More Questions From This User See All
Answers & Comments
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.