| | | |
1 | | - | { Вы ведь заметили кнопку "запустить" сверху ? } |
| 1 | + | program Project1; |
3 | | - | program Welcome; |
| 3 | + | const |
4 | | - | uses Crt; { Это нужно из-за особенностей JS-DOS } |
| 4 | + | D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13]; |
6 | 5 | | var |
7 | | - | Name: string; |
| 6 | + | S : String; |
| 7 | + | i, Len : Integer; |
| 8 | + | begin |
| 9 | + | repeat |
| 10 | + | Writeln('Задайте текст:'); |
| 11 | + | Readln(S); |
9 | 8 | | begin |
10 | | - | WriteLn; |
| 9 | + | repeat |
11 | | - | WriteLn('Переключение на русский -- правый Ctrl'); |
| 10 | + | Writeln('Задайте текст:'); |
12 | | - | WriteLn; |
| 11 | + | Readln(S); |
13 | | - | Write('Как вас зовут, путник? -- '); |
14 | | - | ReadLn(Name); { Если не добавить uses Crt, из-за особенностей JS-DOS здесь зависнет } |
15 | | - | WriteLn('Добро пожаловать на наш сайт, ', Name); |
16 | | - | WriteLn; |
17 | | - | end. |
| 13 | + | Len := Length(S); |
| 14 | + | for i := Len downto 1 do begin |
| 15 | + | if S[i] in D then Continue; |
| 16 | + | if ( (i = 1) or (S[i - 1] in D) ) and (S[i] = UpCase(S[i])) then |
| 17 | + | Insert('!', S, i); |
| 18 | + | end; |
| 20 | + | Writeln('Текст после обработки:'); |
| 21 | + | Writeln(S); |
| 23 | + | Writeln('Повторить - Enter. Выход - любой символ + Enter.'); |
| 24 | + | Readln(S); |
| 25 | + | until S <> ''; |
| 26 | + | end. |