Chắc suất Đại học top - Giữ chỗ ngay!! ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
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?