1. дано действительное число x и целое число n вывести N первых челнов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность 1,12

2. дано действительное число x и целое число n вывести N первых членов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность (-2,2)

Question

Информатика

Эльвирка

16 ноября, 01:01

1. дано действительное число x и целое число n вывести N первых челнов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность 1,12

2. дано действительное число x и целое число n вывести N первых членов арифметическойкой прогрессии и найти сумму ее первых членов если первый член X а разность (-2,2)

+1

Ответы (1)

Знаете ответ?

Борюха · Answer 1

Универсальное решение

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.