В Африке водятся жирафы, а в мурманске идет снег. В африке водятся жирафы которые танцуют лезгинку В африке водятся жирафы, их нельзя есть В мурманске выпал снег, люди сидят дома В мурманске выпал снег и бабуля связала носки ?Хд
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (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); Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант: (здесь k1 и k2 - целые, а y - типа ) if (Marshrut.NK.N = '11') then begin writeln('... '); inc(kol); y:=Marshrut; k1:=FilePos(fr)-1; k2:=FilePos(fr); if not eof(fr) then begin read(fr, Marshrut); seek (fr, k1); write(fr, Marshrut); seek (fr, k2); write (fr, y); end;
Требования безопасности перед началом работы: 1. Запрещено входить в кабинет в верхней одежде, головных уборах, с громоздкими предметами и едой 2. Запрещено входить в кабинет информатики в грязной обуви без бахил или без сменной обуви 3. Запрещается шуметь, громко разговаривать и отвлекать других учащихся 4. Запрещено бегать и прыгать, самовольно передвигаться по кабинету 5. Перед началом занятий все личные мобильные устройства учащихся (телефон, плеер и т.п.) должны быть выключены 6. Разрешается работать только на том компьютере, который выделен на занятие 7. Перед началом работы учащийся обязан осмотреть рабочее место и свой компьютер на предмет отсутствия видимых повреждений оборудования 8. Запрещается выключать или включать оборудование без разрешения преподавателя 9. Напряжение в сети кабинета включается и выключается только преподавателем
Требования безопасности во время работы: 1. С техникой обращаться бережно: не стучать по мониторам, не стучать мышкой о стол, не стучать по клавишам клавиатуры 2. При возникновении неполадок: появлении изменений в функционировании аппаратуры, самопроизвольного её отключения необходимо немедленно прекратить работу и сообщить об этом преподавателю 3. Не пытаться исправить неполадки в оборудовании самостоятельно 4. Выполнять за компьютером только те действия, которые говорит преподаватель 5. Контролировать расстояние до экрана и правильную осанку 6. Не допускать работы на максимальной яркости экрана дисплея 7. В случае возникновения нештатных ситуаций сохранять спокойствие и чётко следовать указаниям преподавателя. Запрещается: 1. Эксплуатировать неисправную технику 2. При включённом напряжении сети отключать, подключать кабели, соединяющие различные устройства компьютера 3. Работать с открытыми кожухами устройств компьютера 4. Касаться экрана дисплея, тыльной стороны дисплея, разъёмов, соединительных кабелей, токоведущих частей аппаратуры 5. Касаться автоматов защиты, пускателей, устройств сигнализации 6. Во время работы касаться труб, батарей 7. Самостоятельно устранять неисправность работы клавиатуры 8. Нажимать на клавиши с усилием или допускать резкие удары 9. Пользоваться каким-либо предметом при нажатии на клавиши 10. Передвигать системный блок, дисплей или стол, на котором они стоят 11. Загромождать проходы в кабинете сумками, портфелями, стульями 12. Брать сумки, портфели за рабочее место у компьютера 13. Брать с собой в класс верхнюю одежду и загромождать ею кабинет 14. Быстро передвигаться по кабинету 15. Класть какие-либо предметы на системный блок, дисплей, клавиатуру. 16. Работать грязными, влажными руками, во влажной одежде 17. Работать при недостаточном освещении 18. Работать за дисплеем дольше положенного времени
В африке водятся жирафы которые танцуют лезгинку
В африке водятся жирафы, их нельзя есть
В мурманске выпал снег, люди сидят дома
В мурманске выпал снег и бабуля связала носки
?Хд