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

Question

Информатика

Петуля

19 июля, 15:29

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

+5

Ответы (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.