Код программы в Delphi для задачи вычислить произведение первых восьми членов…

Question

34

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

в избранное ссылка

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

hj7ty · Accepted Answer

95

hj7ty

01 апреля 2023

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.

комментировать

в избранное ссылка отблагодарить