Составьте программу в паскале ,очень надо и быстро пожалуйста !! Подсчитать произведение...

Question

Составьте программу в паскале ,очень надо и быстро пожалуйста !!
Подсчитать произведение первых семнадцати целых положительных чисел

Comments

поясните задачу

---

числа вводятся а потом уже высчитывается произведение положительных или наоборот

---

Числа вводяться

---

в начале

---

? сколько чисел вводится в начале

---

там ошибка место If X>=0 Then Begin

---

подставте If X>0 Then Begin

Answer 1

Var I,Sum,X,G:Integer;


Begin
Sum:=1;
While G<>17 Do Begin

WriteLn('Vvedite chislo ');
ReadLn(X);
If X>=0 Then Begin
Sum:=Sum*X;
G:=G+1;
End;
End;
WriteLn('произведение 17-ти положительных чисел равно ',Sum);
End.

Comments

поясните задачу

---

числа вводятся а потом уже высчитывается произведение положительных или наоборот

---

программу которую я написал работает по принципу вводишь и сразу сравнивают если оно полож то его в произведение

---

Спасибо ,надеюсь правильно .