#8966: 爲什麽記憶體區段錯誤！
d244. 一堆石頭
| From: [101.231.75.157] |
發表日期
:
2014-07-08 11:41
第 1 測資點(0%): RE (SIGSEGV)
執行時期錯誤
記憶體區段錯誤！ Segmentation fault
var
z:array[0..1000000] of byte;
k:array[1..10000] of longint;
a,b,i:longint;
begin
while not eof do begin
a:=0;
read(z[a]);
while ord(chr(z[a]))<>10 do begin
inc(a);
inc(k[a]);
read(z[a]);
end;
for i:=1 to 10000 do if k[a] mod 2<>0 then b:=i;
writeln(b);
end;
end.
ZeroJudge Forum