Cod sursa(job #617779)
| Utilizator |  Marcus Sergiu sergiu.marcus |
Data | 15 octombrie 2011 11:19:02 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
var f,g:text; p,i,k:integer;
begin
assign(f,'date.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,'d
ate.out');
rewrite(g);
writeln(g,i);
close(f);
close(g);
end.
