Cod sursa(job #95848)
Utilizator | Data | 30 octombrie 2007 12:59:40 | |
---|---|---|---|
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 <= 10000) then
repeat
until false
else
write(fo,1);
close(fi); close(fo);
end.