pascal
输入30个正整数,计算它们的和,平方和
pascal 输入30个正整数,计算它们的和,平方和
答案:1 悬赏:0 手机版
解决时间 2021-05-21 19:41
- 提问者网友：兔牙战士
- 2021-05-20 20:25
最佳答案
- 五星知识达人网友：由着我着迷
- 2021-05-20 21:22
program sample;
var i,x,s,q:longint;
begin
s:=0;q:=0;
for i:=1 to 30 do begin
read(x);
inc(s,x);
inc(q,sqr(x));
end;
writeln(s);
writeln(q);
end.
s是和
q是平方和
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯