Một số khái niệm cơ bản của tin học

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
EDOGAWA CONAN

Viết thuật toán phân tích một số ra thừa số nguyên tố.

✿✿❑ĐạT̐®ŋɢย❐✿✿
17 tháng 10 2019 lúc 20:55

Tham khảo :

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.


Các câu hỏi tương tự
Nga Nguyễn
Xem chi tiết
Bình Minh
Xem chi tiết
Hân Bùi
Xem chi tiết
Huỳnh Lê Thảo Nguyênn
Xem chi tiết
Lê Trung Tiến
Xem chi tiết
Võ Thị Lan Anh
Xem chi tiết
Ái Cầm Trần
Xem chi tiết
gấu subi
Xem chi tiết
Nguyễn Thùy Dương
Xem chi tiết