Записать в файл g все чётные числа файла f, а в файл h - все нечётные.

@artsplus · Регистрация: 01.02.2012

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

Вот сижу на паре и не знаю как делать ,может кто решит очень прошу так как сам в паскале тук тук

Дан файл f, компоненты которого являются целыми числами. Записать в файл g все чётные числа файла f, а в файл h - все нечётные.

Очень надеюсь на вас люди.

@Севак · 05.03.2012, 10:23

artsplus,

Pascal

uses crt;
var
f,g,h: text;
a: integer;
begin
assign(f, 'C:\f.txt');
assign(g, 'C:\g.txt');
assign(h, 'C:\h.txt');
reset(f);
rewrite(g);
rewrite(h);
while not (eof(f)) do begin
read(f, a);
if a mod 2 = 0 then write(g, a,' ');
if a mod 2 = 1 then write(h, a,' ');
end;
close(f);
close(g);
close(h);
end.

@artsplus 0 / 0 / 0 Регистрация: 01.02.2012 Сообщений: 3
		1
	Записать в файл g все чётные числа файла f, а в файл h - все нечётные. 05.03.2012, 09:42. Показов 8317. Ответов 1 Метки нет (Все метки) Вот сижу на паре и не знаю как делать ,может кто решит очень прошу так как сам в паскале тук тук Дан файл f, компоненты которого являются целыми числами. Записать в файл g все чётные числа файла f, а в файл h - все нечётные. Очень надеюсь на вас люди. 0

	05.03.2012, 10:23

Записать в файл g все чётные числа файла f, а в файл h - все нечётные.

Решение