Cho chương trình phân tích số n ra thừa số nguyên tố sau.
Yêu cầu: Tìm cách bỏ dấu nhân bị thừa ở cuối
var n,i: integer;
Begin
Write(‘Nhap so can phan tich: ‘);Readln(n); i:=2;
Write(‘Ket qua phan tich:’); Write(n,’=’);
While n>1 do
Begin if n mod i = 0 then Begin Write(i,’.’); n:= n div i End
else i:=i+1; End;
Readln
End.
var n,i: integer;
Begin
Write(‘Nhap so can phan tich: ‘);Readln(n);
i:=2;
Write(‘Ket qua phan tich : ‘);
Write(n,’=’);
While n > 1 do
Begin
if n mod i = 0 then
End
var n,i: integer;
Begin
Write(‘Nhap so can phan tich: ‘);Readln(n);
i:=2;
Write(‘Ket qua phan tich : ‘);
Write(n,’=’);
While n > 1 do
Begin
if n mod i = 0 then
Begin
Write(i);
n:= n div i ;
If n > 1 then Write (‘.’);
End
else i:=i+1; End;
End.