Код программы в delphi для вычислить произведение первых восьми членов арифметической прогрессии с первым членом равным 9 и разницей 4.
nikitosgurbano
2
28.03.2019 07:40
1
Другие вопросы по теме Информатика
MoDnIk237
06.03.2022 21:42
ketgalyschko
06.03.2022 22:06
edynorozhok
06.03.2022 22:07
baryshevskayaam
06.03.2022 22:09
imbiz
06.03.2022 22:16
ученик1880
06.03.2022 22:17
6ВинишкоТян9
19.05.2020 10:59
schkuleva1980
19.05.2020 10:59
Популярные вопросы
- Зажгите парафиновую свечу. над пламенем 2-3 с подержите сухой стакан в перевернутом...
2 - Написать соччинение рассуждение на тему: улучшать мир или себя....
1 - Подскажите когда пишется не, а когда...
3 - Какое из чисел является корнем уравнения 3,5,15 45: х=4+х...
3 - Зал размером 90 на 90 метров разделён на квадратные комнаты размером 10 на 10...
1 - Надо маленькое ( про трех богатырей) умоляю...
1 - Чтобы попасть в поселок голубые ели, автобусу с судьями нужно проехать 300 км,...
2 - ответьте на вопросы: 1) what can you see in red square? 2) what is pterhof?...
1 - На карте с маштабом 1/3000000 расстояние между двумя пунктами составляет 4 сантиметра....
3 - Написать предложения с союзами потому что, потому, зато, сначала слитно, а потом...
3
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.