Question

[fan FA]

Viết thuật toán phân tích một số ra thừa số nguyên tố

Answer 1

[『ღƤℓαէїŋʉɱ ₣їɾεツ』]

tin học à

Answer 2

[『ღƤℓαէїŋʉɱ ₣їɾεツ』]

VAR i,n :INTEGER;
BEGIN
    Write ('Nhap n:');
    Readln(n);
    Write (n,'=');
    i:=2;
    REPEAT
        WHILE n MOD i <> 0 DO
            i:=i+1;
        Write(i);
        n:=n DIV i;
        IF n > 1 THEN
            write ('*');
    UNTIL n = 1;
    readln;
END.