Cod sursa(job #782353)

Utilizator andrei_toaderToader Andrei Sorin andrei_toader Data 26 august 2012 23:30:31
Problema Litere Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program litere;
var f,g:text;
    n,i,j:integer;
    nr:longint;
    s:ansistring;

begin
 assign (F,'litere.in'); reset (F);
 assign (g,'litere.out'); rewrite (g);
 readln (F,n);
 read(F,s);
 for i:=1 to n do
  for j:=1 to i-1 do
   if s[i]<s[j] then
    inc(nr);
   write (g,nr);
   close (F); close (G);
end.