A voir également:
- Supprimer espace
- Supprimer rond bleu whatsapp - Guide
- Espace insécable - Guide
- Espace de stockage gmail plein - Guide
- Supprimer une page word - Guide
- Supprimer pub youtube - Accueil - Streaming
2 réponses
program DeleteAllSpaces;
var S, Sub_S : String;
begin
S := 'a bb ccc dddd eeeee ffffff ggggggg';
Sub_S := ' ';
while Pos(Sub_S, S) > 0 do
Delete(S, Pos(Sub_S, S), 1); { suppression des espaces }
Write(S); { La chaine S sans les espaces }
ReadLn;
{ TODO -oUser -cConsole Main : placez le code ici }
end.
var S, Sub_S : String;
begin
S := 'a bb ccc dddd eeeee ffffff ggggggg';
Sub_S := ' ';
while Pos(Sub_S, S) > 0 do
Delete(S, Pos(Sub_S, S), 1); { suppression des espaces }
Write(S); { La chaine S sans les espaces }
ReadLn;
{ TODO -oUser -cConsole Main : placez le code ici }
end.