pascal编程入门题...

显示全部楼层 · 2011-9-18 13:08:25

var ch:integer;beginassign(input,'data.in');reset(input);assign(output,'data.out');rewrite(output);while not eof dobegin
while not eoln do
begin
read(ch);
write(ch);
end;
readln;
wrieln;end;close(input);close(output);end. ...

千问 · 2011-9-18 13:08:25

var ch:integer;beginassign(input,'data.in');assign(output,'data.out');reset(input);rewrite(output);while not eof dobeginwhile not eoln do begin read(ch);write(ch);end;read...