program File1 Данная программа заменяет во входном файле все слова из

 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program File1;
// Данная программа заменяет во входном файле все
// слова из одного символа на '+', из 2-х на '**' из 3-х на '###'
// И отдаёт всё это в выходной файл
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Inp, Outp: TextFile; // Файлы для входных и выходных данных
Str: String; // Строка, в которую читаем по одному слову
Ch: Char; // Рабочая символьная переменная
begin
AssignFile(Inp,'INPUT.TXT');
AssignFile(Outp,'OUTPUT.TXT');
Reset(Inp);
Rewrite(Outp);
Str := '';
while(not EOF(Inp)) do
begin
Read(Inp,Ch);
if((EOLn(Inp))or(Ch in [' ','.',',',':','-']))then
begin
case Length(Str) of
1:
Str[1]:='+';
2:
begin
Str[1]:='*';
Str[2]:='*';
end;
3:
begin
Str[1]:='#';
Str[2]:='#';
Str[3]:='#';
end;
end;
Write(OutP,Str);
Write(OutP,Ch);
if(EOLn(Inp))then
begin
Writeln(OutP);
Readln(InP);
end;
Str:='';
end
else
Str:=Str+Ch;
end;
CloseFile(InP);
CloseFile(OutP);
end.