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

1

Ответы и объяснения

Лучший Ответ!
2012-12-24T20:42:05+04:00

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.