Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses crt;
var fin,fout: text;
l: integer;
begin
clrscr;
assign(fin,'in.txt');
assign(fout,'out.txt');
reset(fin);
rewrite(fout);
while not eof(fin) do begin
read(fin,l);
if((l mod 2)=0) then begin
write(l,' ');
write(fout,l,' ');
end;
end;
close(fin);
close(fout);
readln;
end.
var fin,fout: text;
l: integer;
begin
clrscr;
assign(fin,'in.txt');
assign(fout,'out.txt');
reset(fin);
rewrite(fout);
while not eof(fin) do begin
read(fin,l);
if((l mod 2)=0) then begin
write(l,' ');
write(fout,l,' ');
end;
end;
close(fin);
close(fout);
readln;
end.