作业帮一道 PASCAL题!各位高手帮个忙!关于FOR循环的!在线等!速进!
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/26 05:34:08
一道 PASCAL题!各位高手帮个忙!关于FOR循环的!在线等!速进!
输入文件中有10个整数,均位于同一行,各数之间用一个空格分开,编程求出这10个数中偶数的个数及所有偶数的和.
想问下 lipoqil,S与K不用赋初值么?k:=k+1什么意思?新手勿怪
输入文件中有10个整数,均位于同一行,各数之间用一个空格分开,编程求出这10个数中偶数的个数及所有偶数的和.
想问下 lipoqil,S与K不用赋初值么?k:=k+1什么意思?新手勿怪
var i,x,s,k:longint;
begin
assign (input,'xx1.in');reset(input);
assign (output,'xx2.out');rewrite(output);
for i:=1 to 10 do begin
read (x);
if x mod 2=0 then begin
s:=s+x;k:=k+1;
end;
end;
writeln (k,' ',s);
close(input);close(output);
end.
沙茶也能无压力……
begin
assign (input,'xx1.in');reset(input);
assign (output,'xx2.out');rewrite(output);
for i:=1 to 10 do begin
read (x);
if x mod 2=0 then begin
s:=s+x;k:=k+1;
end;
end;
writeln (k,' ',s);
close(input);close(output);
end.
沙茶也能无压力……