Предмет: Информатика,
автор: Майонез
Код программы в Delphi для задачи вычислить произведение первых восьми членов арифметической прогрессии с первым членом равным 9 и разницей 4.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Биология,
автор: sophiaharris
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: Uheniva20
Предмет: Химия,
автор: Ирина21032012
Предмет: Математика,
автор: МиланочкаLoveyou