SHOW:
|
|
- or go back to the newest paste.
| 1 | type | |
| 2 | auto = record | |
| 3 | number: string; | |
| 4 | surname: string; | |
| 5 | brand: string; | |
| 6 | end; | |
| 7 | var | |
| 8 | a: auto; | |
| 9 | f: text; | |
| 10 | ch: char; | |
| 11 | i: integer; | |
| 12 | s: string; | |
| 13 | begin | |
| 14 | assign(f,'C:\1.txt'); | |
| 15 | reset(f); | |
| 16 | i:=0; | |
| 17 | while (ch<>',') or (ch<>'.') or (ch<>' ') do | |
| 18 | begin | |
| 19 | i:=i+1; | |
| 20 | read(f,ch); | |
| 21 | s[i]:=ch; | |
| 22 | end; | |
| 23 | a.number:=s; | |
| 24 | writeln(a.number); | |
| 25 | - | end. |
| 25 | + | end. |
| 26 | ||
| 27 | файл: | |
| 28 | 4568 файл правка, | |
| 29 | 1234 формат вид. |
