

Phân tích n thành tích các số nguyên tố
ai giúp em với



ai giúp em với




thuật toán thôi nha. Lười viết Code quáPhân tích n thành tích các số nguyên tố
ai giúp em với![]()
hình như trong SGK cóPhân tích n thành tích các số nguyên tố
ai giúp em với![]()
Thuật toán này mình biết nhưng không hình dung ra được code nên mới hỏithuật toán thôi nha. Lười viết Code quá
Đầu tiên tìm tất cả các số nguyên tố từ 2 đến n
Sau đó chia lần lượt n cho các số đó từ nhỏ đến lớn, số nào chia hết thì lấy, không chia hết thì tăng lên đến khi giá trị của n còn lại 1 thì xong
Phân tích n thành tích các số nguyên tố
ai giúp em với![]()
uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap so:');readln(n);
i := 2;
write(n,'=');
repeat
while n mod i <>0 do inc(i);
write(i);
n := n div i;
if n>1 then write('*');
until n=1;
readln
end.
bạn biết thuật toán tìm số nguyên tố đúng không. Sau khi tìm được số nguyên tố mình sẽ lưu vào mảng A.Thuật toán này mình biết nhưng không hình dung ra được code nên mới hỏi![]()
cái này đâu phải là số nguyên tố đâu nhỉBạn có thế đổi longint thành integer cũng ok nhéMã:uses crt; var n,i:longint; begin clrscr; write('Nhap so:');readln(n); i := 2; write(n,'='); repeat while n mod i <>0 do inc(i); write(i); n := n div i; if n>1 then write('*'); until n=1; readln end.
![]()
Nó ra tích các số nguyên tố mà @trà nguyễn hữu nghĩabạn biết thuật toán tìm số nguyên tố đúng không. Sau khi tìm được số nguyên tố mình sẽ lưu vào mảng A.
cái này đâu phải là số nguyên tố đâu nhỉ
à đúng rồi, mình nhầm cái vòng whileNó ra tích các số nguyên tố mà @trà nguyễn hữu nghĩa
helpà đúng rồi, mình nhầm cái vòng while
cứ tưởng nó với repeat là 1 nên chạy không được
Mình làm trên rồi còn gì mà help?