free pascal的编程问题
program p;var n,s,t:real;beginreadln(n);s:=1;t:=1;while (t <= n) dobegins := s * t;t := t + 1;end;writeln(s);end.
标签：free,pascal,编程
版权声明：文章由 酷百书 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.kubaishu.com/life/153529.html
