一道PASCAL题!!各位高手帮个忙!关于FOR循环的!在线等!速进!!

发布网友 发布时间：2023-10-20 06:58

我来回答

共3个回答

热心网友 时间：2024-11-19 02:19

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.

沙茶也能无压力……

热心网友 时间：2024-11-19 02:19

var a,sum,count,i:longint; //sum表示和,count表示个数
begin
sum:=0;count:=0;
for i:=1 to 10 do
begin
read(a);
if odd(a) then continue; //如果是奇数则跳过下面的语句进入下一循环
inc(count); //计数一次count
inc(sum,a); //把a添加进sum
end;
writeln('Count:',count);
writeln('Sum:',sum);
end.

注意!!pascal会把0当成偶数.
如果要排除0.则把[ if odd(a) then continue; ]改成[ if odd(a) or (a=0) then continue; ]

另外,,odd(a)表示判断a是否为奇数,是一个函数.
inc(count)表示count自增一次,即count:=count+1;
inc(sum,a)表示sum:=sum+1;
以上是标准的Free Pascal 写法 ..
提示:k:=k+1表示一个数自增一次.比如k=5;自增一次之后就变成6了.
建议楼主去背诵一下FreePascal的标准函数,对写程序非常有帮助

热心网友 时间：2024-11-19 02:20

var
i,t,count,a:longint;
BEGIN
t:=0;
count:=0;//赋初值

for i:=1 to 10 do begin
read(a);//读数据

if a mod 2=0 then begin//如果是偶数
t:=t+a;//给记录偶数和的变量t加上新读入的数据
count:=count+1;//记录有多少个偶数的变量count加一
end;
end;
writeln(count);//输出偶数个数
writeln(t);//输出偶数和
readln;readln;
END.

注：未编译