Надо. исправте ошибки. program untitled; uses crt; type m=array[1..100]of integer; e= file of integer; var k,t: integer; f,g,h: e; i,n,c,a: integer; begin assign(f,'f.dat'); assign(g,'g.dat'); assign(h,'h.dat'); rewrite(f); writeln('ввод n'); read(n); for i: =1 to n do begin writeln('ввод k[i]'); readln(t); write(f,t); end; reset(f); rewrite(g); rewrite(h); while not eof(f)do begin read(f,t); a: =t mod 2; if a< > 0 then begin read(g,t); write(t); writeln('fail chetnih chisel: '); while not eof(g) do begin read(g,t); write(t,' '); end; end else read(h,t); write(t); writeln('fail nechetnih chisel: '); while not eof(h) do begin read(h,t); write(t,' '); end; end; close(f); close(g); close(h); end. дан файл f с целыми числами . нужно из этого файла взять нечетные числа поместить в файл h . а четные в файл g.

amishka01    2   15.09.2019 11:50    1