1.дано действительное число x и целое число n вывести N первых челнов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность 1,12 2.дано действительное число x и целое число n вывести N первых...
1.дано действительное число x и целое число n вывести N первых челнов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность 1,12
2.дано действительное число x и целое число n вывести N первых членов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность (-2,2)
Гость
Ответ(ы) на вопрос:
Гостьуниверсальное решение
var
a, d, s: real;
i, n: integer;
begin
writeln('Введите х, разность и n');
readln(a, d, n);
s := a;
for i := 2 to n do
begin
a := a + d;
s := s + a;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы