Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (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;
int main() { int n; int sum=0, op=1; cout << "Введите n >> "; cin >> n; for (int i = 1; i < n; i++) if (i % 2 == 0) sum += i; else op *= i; cout << "Сумма четных чисел на интервале от 1 до " << n << ": " << sum << endl; cout << "Произведение нечетных чисел на интевале от 1 до " << n << ": " << op << endl; system("pause"); }
var i,j: byte;
beginwriteln('Таблица умножения');
for i:=1 to 9 do begin
for j:=1 to 9 do
write(i*j:4);
writeln;
end;readln;
end.