Phan tich N thanh thua so nguyen to
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (32.29 KB, 1 trang )
Phân tích N thành các thừa số nguyên tố
uses crt;
VAR i,n :INTEGER;
BEGIN
clrscr;
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.
