Mai intai trebuie sa te autentifici.

Cod sursa(job #95846)

Utilizator juniorOvidiu Rosca junior Data 30 octombrie 2007 12:57:02
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
{ 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 (500000 <= n) and (n <= 1000000) then   // 48238 - 48240
		repeat
    until false	
  else
  	write(fo,1);
  close(fi); close(fo);
end.