Код программы в Delphi для задачи вычислить произведение первых восьми членов арифметической прогрессии с первым членом равным 9 и разницей 4.

Question

Амфилохий

11 февраля, 16:03

+3

Ответы (1)

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

Денисыч · Answer 1

var

p: real;

d, a1, i : Integer;

begin

a1 : = 9;

d : = 4;

p : = 1;

for i : = 1 to 8 do

p : = p * (a1 + (i - 1) * d) ;

Write (p:0:0) ;

end.