Cod sursa(job #182260)

Utilizator the.truth412Puscas Sergiu the.truth412 Data 20 aprilie 2008 16:37:16
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program fractii;
var n,x,a,i:integer;
    f,g:text;
begin
 assign(f,'fractii.in');
 reset(f);
 assign(g,'fractii.out');
 rewrite(g);
 readln(f,n);
 a:=7;
 x:=7;
 {n:=3, a:=7, x:=7
  n:=4, a:=7, x:=7*2-3 x:=11}
        for i := 3 to n do
        x:=x*2-3;
 writeln(g,x);
 close(f);
 close(g);
end.