Cod sursa(job #110313)
| Utilizator |  Vlad Veigang vrvp |
Data | 26 noiembrie 2007 08:32:26 |
|---|---|---|---|
| Problema | Ordine | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var a:array[1..100] of longint;
n,i,j:longint;
x:char;
f,g:text;
begin
assign(f,'ordine.in');reset(f);
assign(g,'ordine.out');rewrite(g);
while not eof(f) do
while not eoln(f) do begin
read(f,x);
a[ord(x)-96]:=a[ord(x)-96]+1;
end;
for i:=1 to 32 do
for j:=1 to a[i] do
write(g,chr(ord(i+96)));
close(g);
end.