Cod sursa(job #617781)
| Utilizator |  Marcus Sergiu sergiu.marcus |
Data | 15 octombrie 2011 11:21:41 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
var f,g:text; p,i,k:integer;
begin
assign(f,'fact.in'); reset(f);
readln(f,p);
for i:=1 to maxint do begin
if (i mod 10=5)or (i mod 10=0) then inc(k);
if k=p then break;
end;
assign(g,'fact.out');
rewrite(g);
writeln(g,i);
close(f);
close(g);
end.
