Readln(ch);Задача 1. Удалить из строки все лишние пробелы, кроме одного.
Рис. 1 Алгоритм удаления лишних пробелов Program projstring; {$APPTYPE CONSOLE} Uses SysUtils; var s:string[20]; k,i:integer; ch:char; Begin Repeat Writeln('Enter String'); Readln(s); s:=trim(s); k:=length(s); i:=1; while i<=k do Begin if s[i]=' ' then while s[i+1]=' ' do Begin delete(s,i+1,1); k:=k-1; End; i:=i+1; End; writeln('new string =',s); writeln('Continue?'); readln(ch); until ch='n'; End. Результат работы программы со строкой:
Рис. 2
|
