输入一个n，大于等于o 小于等于100 计算一到n的和
用Pascal编程
高手，给编程一下
答案:2 悬赏:50 手机版
解决时间 2021-07-31 19:31
- 提问者网友：浩歌待明月
- 2021-07-31 13:55
最佳答案
- 五星知识达人网友：杯酒困英雄
- 2021-07-31 15:24
var
a,n,i:integer;
begin
readln(n);
a:=0;
for i:=1 to n do
a:=a+n;
writeln(n);
end.
全部回答
- 1楼网友：骨子里都是戏
- 2021-07-31 15:45
var i,s,n:integer;
begin
readln(n);
if (n < 0) or (n > 100) then writeln('range error')
else begin
s:=0;
for i:=1 to n do
s:=s+i;
writeln('sum is:', s);
end;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯