С клавиатуры вводят два слова,каждое из которых распологается на одной строке.Составте программу,которая выводит эти слова в алфавитном порядке.

1

Ответы и объяснения

2013-12-04T17:41:48+00:00
Пример на паскале держи:
Var s,sl:string;    
A:array[1..30] of string;//массив строк, который будет хранить слова
n,i,j:byte;
Begin    
write('Введите строку: ');
readln(s);    
s:=s+' ';n:=0;    
While Pos(' ',s)>0 do    
Begin      
if Copy(s,1,Pos(' ',s)-1)<>'' then      
Begin        
inc(n);        
A[n]:=Copy(s,1,Pos(' ',s)-1);      
End;      
Delete(s,1,Pos(' ',s));    
End;    
For i:=n downto 2 do    
For j:=2 to i do      
if A[j]<A[j-1] then      
Begin        
sl:=A[j];        
A[j]:=A[j-1];        
A[j-1]:=sl;      
End;    
For i:=1 to n do     
s:=s+A[i]+' ';    
writeln('В алфовитном порядке = ',s);    
readln;
End.