Question

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

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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