pascal case语句找错
发布网友
发布时间：2024-10-23 21:18
共2个回答
热心网友
时间：2024-11-09 17:54
8:a[i]:=d[i];k:=k+1;
5:b[i]:=d[i];s:=s+1;
2:c[i]:=d[i];k:=k+1;
这段不对，冒号后面要加begin ，行末加end
就是8:begin a[i]:=d[i];k:=k+1;end；这样
热心网友
时间：2024-11-09 18:02
readln(n)
for i:=1 to n do
begin
read(a[i]);
case d[i] div 10000000 of
8:begin a[i]:=d[i];k:=k+1; end;
5:begin b[i]:=d[i];s:=s+1; end;
2:begin c[i]:=d[i];k:=k+1; end;
end;
可以的
