Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

066536 / 480a / 3

.PAS
Скачиваний:
29
Добавлен:
09.06.2015
Размер:
316 б
Скачать
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.
Соседние файлы в папке 480a