Về thuật toán phân tích thừa số nguyên tô

[kaitoubg (Tuấn Tử Tế)]

Thằng cu mới học Pascal mà đã thế thì chết à. Nói chung mức độ học cơ bản thì hiểu bản chất của vấn đề là ok rồi. Nếu đưa ra được các thuật toán tối ưu nhất thì càng OK.

[hoalaxanh123 (Vương Nguyễn)]

mình thử thôi

i := 2;
while ( i ≤ sqrt(n)) do
    if (n mod i = 0) then 
        begin
            write(i,'*');
            n := n div i;
        end
    else
        i := i + 1;
write(n);

[nts311 (Sơn)]

Cảm ơn tất cả mọi người, giờ em hiêu rồi

procedure ptngto(N:integer);
var i:integer;
Begin
    i:=2;
    while N<>1 do
    Begin
        if(N mod i=0) then
        begin
            write(i);
            N:=trunc(N/i);
            if(N>1) then
                write('*');
        end
        else
            i:=i+1;
    End;
End;