!Cre:huutainguyen4559

Đáp án :

Program Phan_tich;

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.

Cái này mik mới tập làm có j sai bạn thông cảm nha

_Chúc ban jhocj tập tốt

XIn hya nhất ạ

uses crt;
var n:longint;
function pt(n:longint):byte;
var i:longint;
begin
    i:=2;
    while n<>1 do
       begin
           while n mod i = 0 do
              begin
                  write(i);
                  if n<>i then write('*');
                  n:=n div i;
              end;
           inc(i);
       end;
    exit(0);
end;
begin
    clrscr;
    readln(n);
    pt(n);
readln;
end.