перевод кода из паскаль в с++

[nura satre]

Задание: Дан файл, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f являющиеся четными числами.

var
f,g: file of integer;
i: integer;
begin
assign (f, 'in');
assign (g, 'out');
reset (f);
rewrite (g);
while not eof(f) do
begin
read (f,i);
if i mod 2 = 0 then write (g,i);
end;
close (f);
close(g);
end.

[Alex11223]

Тут не решатель задач.

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.