1. Написать программу, которая создает текстовый фай, содержащий сведения о вашем друге (подруге): фамилия, имя, дата рождения.

Program primer;
Var f:text;
Fam,name,date:string;
Begin
Assign(f,’drug.txt’);
Rewrite(f);
Writeln(‘Введите фамилию’);
Readln(fam);
Writeln(f,fam);
Writeln(‘Введите имя’);
Readln(name);
Writeln(f,name);
Writeln(‘Введите дату рождения’);
Readln(date);
Writeln(f,date);
Close(f);
End.

2. (Предлагается решить самостоятельно. Решение аналогично) Написать программу, которая создает текстовый фай, содержащий информацию о книге: автор, название, год издания.

Program biblioteka;
Var f:text;
Avtor,nazvanie:string;
God:integer;
Begin
Assign(f,’biblioteka.txt’);
Rewrite(f);
Writeln(‘Введите автора книги’);
Readln(avtor);
Writeln(f,avtor);
Writeln(‘Введите название книги’);
Readln(nazvanie);
Writeln(f,nazvanie);
Writeln(‘Введите год издания’);
Readln(god);
Writeln(f,god);
Close(f);
End.

3. Открыть существующий файл drug.txt и дополнить его информацией о хобби своего друга (подруги).

Program primer2;
Var f:text;
Hob:srting;
Begin
Assign(f,’drug.txt’);
Append(f);
Writeln(‘Введите хобби’);
Readln(hob);
Writeln(f,hob);
Close(f);
End.

4. (Предлагается решить самостоятельно. Решение аналогично). Открыть существующий файл biblioteka.txt и дополнить его информацией о количестве страниц в книге.

Program Biblioteka2;
Var f:text;
str:srting;
Begin
Assign(f,’biblioteka.txt’);
Append(f);
Writeln(‘Введите количество страниц в книге’);
Readln(str);
Writeln(f,str);
Close(f);
End.

5. Создать текстовый файл chisla.dat, содержащий все четные двузначные числа.

Program primer3;
Var f:text;
I:integer;
Begin
Assign(f,’chisla.dat);
Rewrite(f);
For i:=10 to 99 do
If i mod 2=0 then writeln(f,i);
Close(f);
End.

6. (Предлагается решить самостоятельно. Решение аналогично). Создать текстовый файл proba.dat, содержащий все трехзначные числа, кратные 125.

Program probnik;
Var f:text;
I:integer;
Begin
Assign(f,’proba.dat);
Rewrite(f);
For i:=100 to 999 do
If i mod 125=0 then writeln(f,i);
Close(f);
End.

var
 f: file of char;
 fname: string;
 ch: char;
 n, line, w: word;
 flag: boolean;
 
begin
 write('File address&name: ');
 readln(fname);
 assign(f, fname);
 reset(f);
 
 n := 0;
 line := 0;
 w := 0;
 flag := false;
 while not EOF(f) do begin
 read(f, ch);
 if ord(ch) = 13 then begin
 read(f, ch);
 line := line + 1;
 flag := false;
 end
 else begin
 n := n + 1;
 if ch = ' ' then flag := false
 else
 if flag = false then begin
 w := w+1;
 flag := true;
 end;
 end;
 end;
 if n <> 0 then line := line + 1;
 
 writeln(n);
 writeln(line);
 writeln(w);
 
readln;
end.