Question

viết chương trình phân tích n các thừa số nguyên tố( sử dụng hàm)

Answer 1

uses crt;

var n,kt,i,n1,i1:integer;

begin

clrscr;

write('nhap n='); readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' khong the phan tich thanh thua so nguyen to');

if kt=1 then begin

                write(n,'=');

                n1:=n;

                i1:=2;

                repeat

                    while n1 mod i1<>0 do

                      i1:=i1+1;

                    write(i1);

                    n1:=n1 div i1;

                    if n1>1 then write('*');

                until n1=1;

             end;

readln;

end.

Answer 2

var n,k:int64;
    i,d:longint;
begin
        readln(n);
        k:=trunc(Sqrt(n));
        i:=2;
        res:=1;
        while i<=k do
        begin
                d:=0;
                while n mod i=0 do
                begin
                        write(i);
                        n:=n div i;
                        if n>1 then write('*');
                        inc(d);
                end;
                k:=trunc(sqrt(N));
                i:=i+1;
        end;
        if n>1 then write(n);
        readln;
end.

Answer 3

var n,k:int64;
    i,d:longint;
begin
        readln(n);
        k:=trunc(Sqrt(n));
        i:=2;
        res:=1;
        while i<=k do
        begin
                d:=0;
                while n mod i=0 do
                begin
                        write(i);
                        n:=n div i;
                        if n>1 then write('*');
                        inc(d);
                end;
                k:=trunc(sqrt(N));
                i:=i+1;
        end;
        if n>1 then write(n);
        readln;
end.