Câu hỏi
lighting
26/04/2013 21:36
Giúp mình mã giả kiểm tra số nguyên tố?
Thầy giáo ra bài kiểm tra 1 số có phải là số nguyên tố hay không, mình không hiểu cái này lắm, nhất là viết bằng mã giả nữa. Nhờ các pro giúp mình với??
hoahong
26/04/2013 21:36
Danh sách câu trả lời (1)
hoahong
26/04/2013 21:36
Chào bạn!
Bạn làm như sau:
Program SoNgTo;
Uses WinCrt;
Var a,i,m :Integer;
BEGIN
ReadLn(a);
i:=2;
m:=trunc(sqrt(a));
While (i<=m) and ((a mod i)<>0) do
i:=i+1;
If i<=m then
WriteLn(a, ' khong la so nguyen to')
Else
WriteLn(a, ' la so nguyen to');
END.
Chúc bạn thành công.
Bạn làm như sau:
Program SoNgTo;
Uses WinCrt;
Var a,i,m :Integer;
BEGIN
ReadLn(a);
i:=2;
m:=trunc(sqrt(a));
While (i<=m) and ((a mod i)<>0) do
i:=i+1;
If i<=m then
WriteLn(a, ' khong la so nguyen to')
Else
WriteLn(a, ' la so nguyen to');
END.
Chúc bạn thành công.
Trả lời câu hỏi
Câu hỏi lĩnh vực Lập trình
Rao vặt Siêu Vip