Вычислить произведение целых чисел от 1 до 100.Напишите программу.
Вычислить произведение целых чисел от 1 до 100.Напишите программу.
Гость
Ответ(ы) на вопрос:
Гостьсделал до 30 больше терпения не хватило.
результат:2,652528598121911е+32
ГостьProgram v1;
Var proiz,x :integer;
Begin
X:=1;
While x<=100 do begin
X:=x+1;
proiz:=proiz*x;
End;
Writeln(proiz);
End.
PASCAL
Не нашли ответ?
Похожие вопросы