Все четные компоненты в файле переписать в другой файл

@konovalova · Регистрация: 18.02.2013

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

Ввести файл целых чисел F. Все четные компоненты в файле переписать в другой файл H. В его конец дописать количество этих компонент. Файл H распечатать.

не могу разобраться с основной частью!!!

@CodeR · 08.03.2013, 08:28

Pascal

Var f,h:file of integer;
    m,n,i,k:integer;
Begin
    write('Введите кол-во компонент: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
    Begin
      m:=random(31)-15;
      write(m:4);
      write(f,m);
    End;
    writeln;
    Reset(f);
    Assign(h,'out.dat');Rewrite(h);
    While not Eof(f) do
    Begin
      read(f,m);
      if m mod 2 = 0 then 
      Begin
        write(h,m);
        inc(k);
      End;
    End;
    write(h,k);
    Reset(h);
    While not Eof(h) do
    Begin
      read(h,m);
      write(m:4);
    End;
    Close(f);Close(h);
End.

@konovalova 0 / 0 / 0 Регистрация: 18.02.2013 Сообщений: 17
		1
	Все четные компоненты в файле переписать в другой файл 07.03.2013, 15:43. Показов 3275. Ответов 1 Метки нет (Все метки) Ввести файл целых чисел F. Все четные компоненты в файле переписать в другой файл H. В его конец дописать количество этих компонент. Файл H распечатать. не могу разобраться с основной частью!!! 0

	08.03.2013, 08:28

Все четные компоненты в файле переписать в другой файл

Решение