Bonjour,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program long;
uses wincrt;
var ch,ch1:string;
i,r:integer;
 
 
Begin
readln(ch);
 
 
for i:=1 to length(ch) do
 
if ch[i] = ' ' then
begin
ch1:=copy(ch,1,i);
delete(ch,1,i);
end;
write(ch1);
 
 
end.
De l'aide SVP.