Tin học Thừa sô nguyên tố

[Duyên 13012005]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
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.

Viết chương trình nhập vào 1 số n và phân tích số đó thành tích các thừa số nguyên tố .Ví dụ :12=2*2*3

 

[Sơn Nguyên 05]

Viết chương trình nhập vào 1 số n và phân tích số đó thành tích các thừa số nguyên tố .Ví dụ :12=2*2*3

var
n, i: word;
begin
write('Nhap N (N>=2): '); readln(n);
i:=2;
while n>1 do
if n mod i = 0 then
begin
n:=n div i;
write(i,' ');
end
else i:=i+1;
readln;
end.
Nguồn: Gúc

 

[Duyên 13012005]

var
n, i: word;
begin
write('Nhap N (N>=2): '); readln(n);
i:=2;
while n>1 do
if n mod i = 0 then
begin
n:=n div i;
write(i,' ');
end
else i:=i+1;
readln;
end.
Nguồn: Gúc

Có thể dùng lệnh repeat. .Until được không bạn. Nếu đc bạn viết chương trình giúp mình nha

 

[TTree]

Repeat nè cậu
var t,n:longint;
function kt(x:longint):boolean;
var i:longint;
begin
if x<2 then exit(false);
for i:=2 to trunc(sqrt(x)) do
if x mod i = 0 then exit(false);
exit(true);
end;
begin
clrscr;
readln(n); t:=2;
repeat
if (n mod t=0) and kt(t) then
begin write(t,' '); n:=n div t; end
else inc(t);
until n=1;
readln;
end.

 

[Duyên 13012005]

Repeat nè cậu
var t,n:longint;
function kt(x:longint):boolean;
var i:longint;
begin
if x<2 then exit(false);
for i:=2 to trunc(sqrt(x)) do
if x mod i = 0 then exit(false);
exit(true);
end;
begin
clrscr;
readln(n); t:=2;
repeat
if (n mod t=0) and kt(t) then
begin write(t,' '); n:=n div t; end
else inc(t);
until n=1;
readln;
end.

Bạn chắc giỏi tin lắm hay Sao bài nào cũng giải đc nhỉ