Viết thuật toán phân tích một số ra thừa số nguyên tố
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
A
0
16 tháng 10 2019
thuê bao quý khách vừa gửi hiện máy chủ của chúng tôi ko dịch dc chữ nào ra hồn xin quý khách thử liên hệ đăng lại sau it phút .TÚT
LT
2
tin học à
VAR i,n :INTEGER;
BEGIN
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.