Технический форум - Уважаемые программисты, помогите решить задачу на строки символов. Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Уважаемые программисты, помогите решить задачу на строки символов. Паскаль (http://www.tehnari.ru/f41/t82155/)

Ден95

13.12.2012 20:45

Уважаемые программисты, помогите решить задачу на строки символов. Паскаль

Условие: Удалить пробелы в заданной строке!

Vladimir_S

13.12.2012 20:54

Цитата:

Сообщение от Ден95 (Сообщение 833045)

Условие: Удалить пробелы в заданной строке!

Легко:

Код:

Var

 S:String;

 i:Byte;

Begin

 Writeln('Enter the string:');

 Readln(S);

 Repeat

  i:=0;

  repeat

   Inc(i);

  until (S[i]=' ') or (i=Length(S));

  If S[i]=' ' then Delete(S,i,1);

 Until i=Length(S);

 Writeln(S);

 Readln;

End.

Часовой пояс GMT +4, время: 16:43.