viết chương trình kiểm tra N có phải là số nguyên tố không? (while….do)
0 bình luận về “viết chương trình kiểm tra N có phải là số nguyên tố không? (while-do)”
program phuongt; uses crt; var n, s, i: integer; begin clrscr; write(‘Nhap n = ‘); readln(n); s:=0; i:=1; if n<2 then write(n, ‘ khong phai so nguyen to’); if n=2 then write(n, ‘ la so nguyen to’); if n>2 then while i<=n do begin if n mod i = 0 then s:=s+1; i:=i+1; end; if (s=2) then write(n, ‘ la so nguyen to’) else write(n, ‘ khong la so nguyen to’); readln end.
program phuongt;
uses crt;
var n, s, i: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
s:=0; i:=1;
if n<2 then write(n, ‘ khong phai so nguyen to’);
if n=2 then write(n, ‘ la so nguyen to’);
if n>2 then
while i<=n do
begin
if n mod i = 0 then s:=s+1;
i:=i+1;
end;
if (s=2) then write(n, ‘ la so nguyen to’) else write(n, ‘ khong la so nguyen to’);
readln
end.
program nguyen_to;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
if n<2 then write(‘Khong phai’)
else
begin
i:=2;
while n mod i<>0 do i:=i+1;
if i=n then write(‘Phai’)
else write(‘Khong phai’)
end;
readln;
end.
Bài sẽ chạy nhanh hơn là chạy thẳng 1 mạch từ 1 đến n để đếm ước.