Cod sursa(job #278236)
| Utilizator |  alexandru catalisan basketbalistu92 |
Data | 12 martie 2009 10:33:44 |
|---|---|---|---|
| Problema | Numere 2 | Scor | 35 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var f,m,d,n:longint;
begin
assign(input,'numere2.in');reset(input);
assign(output,'numere2.out');rewrite(output);
readln(n);
while n<>1 do begin
d:=2;
f:=0;
while n mod d<>0 do d:=d+1;
while n mod d=0 do begin f:=f+1; n:=n div d;end;
writeln(d);
write(f);
end;
close(input);close(output);
end.
