Запись оставлена стас 27.03.2017 в 23:42 (изменение записи, оставленной OCTAGRAM | показать различия)
запустить | скачать | различия | новая запись
- program Project1;
- const
- D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
- var
- S : String;
- i, Len : Integer;
- begin
- repeat
- Writeln('Задайте текст:');
- Readln(S);
- Len := Length(S);
- for i := Len downto 1 do begin
- if S[i] in D then Continue;
- if ( (i = 1) or (S[i - 1] in D) ) and (S[i] = UpCase(S[i])) then
- Insert('!', S, i);
- end;
- Writeln('Текст после обработки:');
- Writeln(S);
- Writeln('Повторить - Enter. Выход - любой символ + Enter.');
- Readln(S);
- until S <> '';
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.