源代码:
procedure main ()
i:=1 #控制变量
fin:=open ("input.txt","r") #建立输入文件
fou1:=open ("output1.txt","a") #建立输出文件1
fou2:=open ("output2.txt","a") #建立输出文件2
while l1:=read(fin) do #从输入文件读入一行
{
if i%2=1 then #判断是否是奇数行, %为求余数的运算符,第一次读入为奇数次,是则,。
write (fou1, l1) #写一行到输出文件1
else...