Найти произведение 15 чисел последовательнрсти 3,10,17,24,... (Паскаль)

Question

Найти произведение 15 чисел последовательнрсти 3,10,17,24,... (Паскаль)

Answer 1

Program n_1;var i:byte;mass:array[1..15] of integer;pr:integer;
beginmass[1]:=3;for i:=2 to 15 dobeginmass[i]:=mass[i-1]+7;Writeln(mass[i]);
end;pr:=mass[1];
for i:=2 to 15 dopr:=abs(pr*mass[i]);
Writeln('Произведение последовательности чисел равна: ',pr);end.

Comments

Спасибо,но можно попроще? 9 класс

---

А это разве сложна?:D

---

Ну для 9 класса да. Мы ещё не проходили такие формулы)

---

id318983607

---

напиши в вк

---

в вк скину

---

хорошо)