Bài tập vòng lặp 2

Wed Jun 19, 2024 10:27 am

Bài tậpViết chương trình Phân tích thừa số nguyên tố Smile

Giải:

Code:: uses crt; var n,i,dem:longint; begin clrscr; write('Nhap N= '); readln(n); write(n,' = ' ); i:=2; while n>1 do begin if n mod i=0 then begin dem:=0; while n mod i=0 do begin dem:=dem+1; n:=n div i; end; if dem>1 then write(i,'^',dem) else write(i); if n>1 then write('*'); end else i:=i+1; end; readln; end.