інформатика 8 клас (pascal abc)
6. Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.
Ответы
Ответ дал:
19
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.
Похожие вопросы
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
9 лет назад