Viết chương trình nhập vào số nguyên dương N và kiểm tra N có phải là số nguyên tố không ? 07/08/2021 Bởi Faith Viết chương trình nhập vào số nguyên dương N và kiểm tra N có phải là số nguyên tố không ?
program ct; uses crt; var i,n:integer; begin clrscr; write(‘nhap n:=’);readln(n); if n<=1 then writeln(N khong la so nguyen to’) else begin i:=2; while (n mod i<>0) do i:=i+1; if i=n then writeln(n,’ la so nguyen to’) else writeln(n,’ khong la so nguyen to’); end; readln end. Bình luận
Đáp án :
program ct;
uses crt;
var i,n:integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
if n<=1 then writeln(N khong la so nguyen to’) else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,’ la so nguyen to’) else writeln(n,’ khong la so nguyen to’);
end;
readln
end.