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

Question

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

эмир31 · Answer

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. Объяснение:...

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