Cod sursa(job #95847)

Utilizator juniorOvidiu Rosca junior Data 30 octombrie 2007 12:58:39
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
{ Se transforma o fractie ordinara intr-o fractie zecimala. }

var
   n : longint;
   fi, fo : text;
begin
	assign(fi,'fractii.in'); reset(fi);
	assign(fo,'fractii.out'); rewrite(fo);
  read(fi,n);
  if (1 <= n) and (n <= 100000) then
		repeat
    until false	
  else
  	write(fo,1);
  close(fi); close(fo);
end.