Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- auto = record
- number: string;
- surname: string;
- brand: string;
- end;
- var
- a: auto;
- f: text;
- ch: char;
- i: integer;
- s: string;
- begin
- assign(f,'C:\1.txt');
- reset(f);
- i:=0;
- while (ch<>',') or (ch<>'.') or (ch<>' ') do
- begin
- i:=i+1;
- read(f,ch);
- s[i]:=ch;
- end;
- a.number:=s;
- writeln(a.number);
- end.
- файл:
- 4568 файл правка,
- 1234 формат вид.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement