Bài tập vòng lặp 2
Wed Jun 19, 2024 10:27 am
Bài tậpViết chương trình Phân tích thừa số nguyên tố
Giải:
Giải:
- Code:
uses crt;
var
n,i,dem:longint;
begin
clrscr;
write('Nhap N= '); readln(n);
write(n,' = ' );
i:=2;
while n>1 do
begin
if n mod i=0 then
begin
dem:=0;
while n mod i=0 do
begin
dem:=dem+1;
n:=n div i;
end;
if dem>1 then write(i,'^',dem) else write(i);
if n>1 then write('*');
end
else i:=i+1;
end;
readln;
end.
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|