Pagini recente » Cod sursa (job #810389) | Cod sursa (job #1011038) | Cod sursa (job #3207497) | Cod sursa (job #612243) | Cod sursa (job #217017)
Cod sursa(job #217017)
program numere2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,j,n,m,a,b,p:Int64;
fin,fout:text;
begin
assign(fin,'numere2.in'); reset(fin);
assign(fout,'numere2.out'); rewrite(fout);
Readln(fin,p);
a:=1; b:=0;
while a < p do
begin
inc(a);
while p mod a = 0 do
begin
inc(b);
p:=p div a;
end;
end;
writeln(fout,a);
writeln(fout,b);
close(fin);
close(fout);
end.