viết chương trình phân tích n thành thừa số nguyên tố dùng chương trình con

0 bình luận về “viết chương trình phân tích n thành thừa số nguyên tố dùng chương trình con”

1. 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.

   Bình luận

2. !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 ạ

   Bình luận