End;
Close(g);
Close(f);
writeln(' solution.txt ',i div 2,' ');
End.
5) :
Program p10;
var f,g:text;
s,file_name:string;
i:integer;
Begin
writeln(' ' ');
Readln(file_name);
assign(f,file_name');
Reset(f);
assign(g,'solution.txt');
Rewrite(g);
i:=0;
While not EOF(f) do
Begin
i:=i+1;
Readln(f,s);
If odd(i) then writeln(g,s);
End;
Close(g);
Close(f);
writeln(' solution.txt ',i div 2,' ');
End.
Program p10;
s,file_name:string;
Begin
Readln(file_name);
Reset(f);
Rewrite(g);
While not EOF(f) do
i:=i+1;
If odd(i) then writeln(g,s);
Close(g);
writeln(' solution.txt ',i div 2,' ');
1. Product.dat ( , ) - Asort.dat ( , ).
2. . Rezult ( , ), Data ( , , ).
3. f g. h f, g.
4. , .
5. f, g , .
6. Data ( , , , ) .
7. f g , . h , .
8. Doc.dat ( , , , ) Code.dat, .
9. g, f, , .
10. f g, d, .
11. ³ f, . g f, .
12. , Turbo Pascal. , .
13. f g . .
14. , Z .
|
|
15. f g , .
16. f (01234567890).
17. ³ f s. g, f, s. s f.
18. f , g - b. h ab ba.
19. f . ϳ .
20. f g .
21. Ua.grn ( , , ) . .
22. f n - . ϳ g.
23. Turbo Pascal. , .
24. Path.dat ( , , ). .
25. , R1 R2.
1. , , , (FAT) ?
2. Turbo Pascal?
3. ?
4. Turbo Pascal?
5. ?
6. ?
7. /?
8. Input Output?
9. /?
10. Turbo Pascal ?
11. ?
12. ?
˲
1. | . : . . ., , 1982. 163 . |
2. | .., .., .. . - , ; /: , 1997. - 368 . |
., . , . - ., - , 2012.. - 208 . | |
3. | . , , . ., , 1981. - 320 ., . |
4. | .. Turbo Pascal. . 3-, . - ., - , 1997. - 320 . |
5. | .. Turbo Pascal. . - ., - , 1998. - 336 . |
. . .. - ., - . , 2002. - 320 . | |
6. | .. 1-3 . . ., , 2000. 720 .: |
7. | .. Turbo Pascal . - ., --, 2000. - 256 ., . |
8. | |
9. | .. Turbo Pascal: . - ., , 2001. - 448 ., . |
10. | |
11. | .. Turbo Pascal. - ., - , 2001. - 496 ., . |
12. | .. Turbo Pascal: . / . - .: , 1995. - 352 . |
13. |
|
|
̲
Ͳ ֲ 4
I. ... 5
1 . 5
2 . 6
3 . 8
3.1 () . 8
3.2 . 8
3.3 䳺- . 9
3.4 '- . 10
3.5 ³ . 10
.. 11
II. Ͳ ֲ̲ 12
1. 12
2. () . 13
3. - . 13
4. 15
.. 17
III. .. 18
1. 18
2. 18
3. . 19
4. . 19
5. . 20
6. . 21
7. . 23
8. . 24
.. 25
IV. . TURBO PASCAL.. 26
. 26
.. 29
1 . ˲Ͳ . /. .. 30
30
. 35
.. 37
2 ί .. 38
38
. 40
.. 42
3 ... 43
43
. 45
.. 46
4 ² .. 47
47
. 49
.. 51
5 ².. 52
52
. 54
.. 56
6 , .. 57
57
. 60
.. 61
7 ̲ ... 62
62
. 66
.. 67
8 .. 69
69
. 71
.. 73
9 Ѳ.. 74
74
. 78
.. 80
10 Ͳֲ ˲.. 81
81
. 85
.. 86
˲.. 87