编写一个程序读入一组整数,然后分别输出奇数的和与偶数的和

如题所述

第1个回答  2008-03-27
读入整数用for循环,设置一个停止位
你和2求余,如果等于0就是偶数,等于1就是奇数。
第2个回答  2008-03-30
pascal:
var
n,a,b,i,x:longint;
begin
write('Input n:');
readln(n);
a:=0;
b:=0;
for i:=1 to n do begin
readln(x);
if x mod 2=0 then a:=a+x else b:=b+x;
end;
writeln('a=',a);
writeln('b=',b);
end.
我用n表示这组整数的个数,x表示这组数的数值,a表示偶数的和,b表示的奇数的和。本回答被提问者采纳
第3个回答  2019-05-15
相似回答