Цитата:
Сообщение от Ден95
Условие: Удалить пробелы в заданной строке!
|
Легко:
Код:
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.