Freepascal编程问题

[复制链接]
查看11 | 回复0 | 2010-2-25 18:51:47 | 显示全部楼层 |阅读模式
varn,s,t:real;beginreadln(n);s:=1;t:=1;while(t<=n)do{当t在满足t<=n这个条件时,执行下面的语句(从begin到end),一旦达到,跳出循环}begins:=s*t;t:=t+1;{题目的要求}end;writeln(s);{输出结果}end.(好像写的跟前面的朋友一样的)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行