18/07/2024
18/07/2024
uses crt;
var i,j,n:longint;
a:array[2..100000] of longint;
f1,f2:text;
begin
assign(f1,'bai1.inp');reset(f1);
assign(f2,'bai1.out');rewrite(f2);
readln(f1,n);
i:=2;a[2]:=0;
while n<>1 do
begin
while n mod i <> 0 do
begin
i:=i+1;
a[i]:=0;
end;
a[i]:=a[i] +1;
n:=n div i;
end;
for j:=2 to i do if a[j] > 0 then writeln(f2,j,' ',a[j]);
close(f1);close(f2);
end.
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
15/08/2025
Top thành viên trả lời