Удалить лишние пробелы между словами, оставив по одному (программа Паскаль)

viktoria190290 viktoria190290    3   16.04.2019 23:00    0

Ответы
antiangel18 antiangel18  16.04.2019 23:00
USES Crt;
VAR
  S:STRING[255];  I,K: INTEGER;
BEGIN
  ClrScr;
  Write('Введите текст   ');  ReadLn(S);
  I:=1;
  While(I<=Length(s)) DO Begin
     IF Copy(S,I,2)='  ' THEN Begin  
                                                 Delete (S,I,1);
                                                 I:=I-1;   
                                               End;
     I:=I+1;
  End;
  Write(S);
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы