Cod sursa(job #617754)
| Utilizator |  Marcus Sergiu sergiu.marcus |
Data | 15 octombrie 2011 11:08:28 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 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) then if (i-3) mod 10=2 then inc(k);
if i mod 10=0 then inc(k);
if k=p then break;
end;
assign(g,'date.out');
rewrite(g);
writeln(g,i);
close(f);
close(g);
end.
