double arrow

While ( not eof(f1) ) do

Begin

readln(f1,pole);

while (pos(‘дке-101’, pole)) <> 0 do

Begin

pz:= pos(‘дке-101’, pole);

delete(pole,pz+4,1);

insert(‘2’,pole,pz+4);

end;

Writeln(f2,pole)

end;

close(f1);

close(f2);

End.

Здесь читаются последовательно строки из входного файла и в каждой строке в номере группы заменяется символ 1 на 2. Скорректированные строки выводятся в новый файл.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: