Составьте программу в паскале ,очень надо и быстро пожалуйста !!
Подсчитать произведение первых семнадцати целых положительных чисел
Ответы на вопрос
Ответил AssassinsG2A
0
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.
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.
Ответил AssassinsG2A
0
поясните задачу
Ответил AssassinsG2A
0
числа вводятся а потом уже высчитывается произведение положительных или наоборот
Ответил AssassinsG2A
0
программу которую я написал работает по принципу вводишь и сразу сравнивают если оно полож то его в произведение
Ответил физика77
0
Спасибо ,надеюсь правильно .
Новые вопросы
Химия,
2 года назад
Математика,
2 года назад
Биология,
9 лет назад
Математика,
9 лет назад
Алгебра,
9 лет назад