pascal (由于你实在牛逼，所以仍然问你）for循环
答案:1 悬赏:80 手机版
解决时间 2021-03-26 09:51
- 提问者网友：风月客
- 2021-03-26 00:35
pascal (由于你实在牛逼，所以仍然问你）for循环
最佳答案
- 五星知识达人网友：爱难随人意
- 2021-03-26 02:02
program for-1;
var n,i,s:longint;
begin
read(n);
if (n>=1) and (n<=20) then
begin
s:=1;
for i:=2 to n do
s:=s*i;
writeln(n,'!=',s);
end;
end.
var n,i,s:longint;
begin
read(n);
if (n>=1) and (n<=20) then
begin
s:=1;
for i:=2 to n do
s:=s*i;
writeln(n,'!=',s);
end;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯