Код программы в delphi для вычислить произведение - вопрос №463996 от MrKom1 31.01.2020 09:05

Question

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

MrKom1 · Answer

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.  ...