Составьте программу вычисления суммы 180 первых членов арифметической прогрессии, если a1 = - 100, d = 0.4

Question

Информатика

Ивася

11 июня, 22:37

Составьте программу вычисления суммы 180 первых членов арифметической прогрессии, если a1 = - 100, d = 0.4

+3

Ответы (1)

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

Артамоныч · Answer 1

Var

a, s, d: real;

i: integer;

begin

a : = - 100;

d : = 0.4;

s : = a;

for i : = 2 to 180 do

begin

a : = a + d;

s : = s + a;

end;

writeln (s) ;

end.