Создать текстовый файл g. Переписать в файл f-четные строки,в файл h-нечетные

@Лапотуня · Регистрация: 03.05.2011

Author24 — интернет-сервис помощи студентам

Помогите с этой задачей,пожалуйста!!!

Создать текстовый файл g. Переписать в файл f-четные строки,в файл h-нечетные.

@Puporev · 14.10.2011, 16:12

Pascal

uses crt;
var g,f,h:text;
    s:string;
    n,i:integer;
begin
clrscr;
assign(g,'G.txt');
rewrite(g);
assign(f,'F.txt');
rewrite(f);
assign(h,'H.txt');
rewrite(h);
writeln('Сколько строк записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  readln(s);
  writeln(g,s);
 end;
reset(g);
i:=0;
while not eof(g) do
 begin
  readln(g,s);
  i:=i+1;
  if i mod 2=0 then writeln(f,s)
  else writeln(h,s);
 end;
close(g);
close(f);
close(h);
end.

@Лапотуня 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 39
		1
	Создать текстовый файл g. Переписать в файл f-четные строки,в файл h-нечетные 14.10.2011, 15:51. Показов 1793. Ответов 1 Метки нет (Все метки) Помогите с этой задачей,пожалуйста!!! Создать текстовый файл g. Переписать в файл f-четные строки,в файл h-нечетные. 0

	14.10.2011, 16:12

Создать текстовый файл g. Переписать в файл f-четные строки,в файл h-нечетные

Решение