Question

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000​ ( на языке Паскаль )​

Answer 1

Ответ:

1.var i,n,s:integer;

2.begin

3.readln(n);

4.s:=1;

5.for i:=1 to n do

6.s:=s*i;

7.writeln(s);

8.end.

Объяснение: