Viết chương trình cho phép phân tích một số ra thừa số nguyên tố

CHUYÊN ĐỀ CHIA HẾT – SỐ NGUYÊN TỐ

Viết chương trình cho phép phân tích một số ra thừa số nguyên tố và ghi kết quả dưới dạng tích các lũy thừa. Ví dụ: 300 = 2^2.3.5^2

Thuật toán:

Dùng một mảng để lưu lũy thừa. Mảng này có giá trị các phần tử ban đầu đều bằng 0. Nếu n chia hết cho i thì tăng M[i] lên 1.

Khi in kiểm tra: Nếu M[i] >0 thì in i^M[i].

Cài đặt:

Program Phan_tich;

Var M: array[1..1000] of byte;

    i: byte;

    n: integer;

Begin

    For i:=1 to 1000 do M[i]:=0;

    Write('Nhap so n: ');Readln(n);

    i:=2;

    While n>1 do if (n mod i = 0) then begin M[i]:=M[i]+1; n:=n div i End

    else i:=i+1;

    For i:=1 to 1000 do if M[i]>0 then Begin If M[i]>1 then Write(i,'^',M[i],'.') else Write(i,'.') End;

    Readln;

End.