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

@salmik · Регистрация: 13.06.2011

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

Условие имеется файл с целыми числами.все четные числа записатьв другой файл Размер данного файла не известен.

Pascal

program primer_3;
uses crt;
var f1,f2:text;
    s:string;
    j,x,pr:integer;
    begin
    clrscr;[SIZE="3"][/SIZE]
    assign (f1,'c:\t.txt');
    rewrite(f1);
    readln(f1,s);
    close(f1);
    rewrite(f2);[/SIZE][/SIZE]
    readln(f2,s);
    for j:=1 to length(s) do
    val(s,x,pr);
    if  mod2=0 then writeln(f2,s);
    readln;
    end.

@AnTro.Net · 17.06.2011, 18:58

каша)) переписал:

Pascal

uses crt;
var f1,f2:text;
s:integer;
j,x,pr:integer;
begin
clrscr;
assign (f1,'f1.txt');
reset(f1);
assign(f2,'f2.txt');
rewrite(f2);
while not EOF(f1) do
    begin
        readln(f1,s);
        if s mod 2=0 then writeln(f2,s);
    end;
readln;
close(f1);
close(f2);
end.

	17.06.2011, 18:58