pascal编程入门题...

发布网友发布时间：2023-05-03 22:10

共2个回答

热心网友时间：2023-10-22 19:12

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

没有验证过,自己微调吧,大概这样

热心网友时间：2023-10-22 19:13

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com