Технология,позволяющая совмещать вывод,разветвинной информации.. а)гиперссылка. в)мультимедиа с)гимпертекст - id2106251720201215 от russilian 15.12.2020 07:20

Question

Информатика: Технология,позволяющая совмещать вывод,разветвинной информации.. а)гиперссылка. в)мультимедиа с)гимпертекст d)expation (если честно,я сама незнаю правильно ли я написала варианты,тк.в тесте практически ничего не видно прощения,если что-то неправильно написала.)

russilian · Accepted Answer

Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2). Сделать это можно так: while not eof(fr) and (kol=0) do begin read(fr, Marshrut); if (Marshrut.NK.N 11 )    then write(fr2,Marshrut)    else begin inc(kol); y:=Marshrut; end; end; if not eof(fr) then   begin   read(fr, Marshrut);   write(fr2,Marshrut);   end; if (kol=1) then  write(fr2,y); Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый...

MOGZ ответил