19.12.2011, 15:23. Просмотров 408. Ответов 2
дан файла. Записать их в другие два файла, при это м в первый записать четные, а во второй – нечетные числа.
Необходимо перевести с tp на С++
Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| var
s1,s2,s3:string;
f1,f2,f3:text;
a,b:integer;
begin
s1:='file01.txt';
s2:='file02.txt';
s3:='file03.txt';
assign(f1,s1);
assign(f2,s2);
assign(f3,s3);
reset(f1);
reset(f2);
append(f3);
while not seekeof(f1) do
begin
read(f1,a);
read(f2,b);
if a<b then
begin
write(f3,a,' ');
write(f3,b,' ');
end;
end;
close(f1);
close(f2);
close(f3);
end |
|