viết chương trình kiểm tra một số có phải là số nguyên tố không( sử dụng For to do)
"Sử dụng câu lệnh While .. do viết chương trình: Nhập vào một số nguyên dương và kiểm tra xem số đó có phải là số nguyên tố không?" Giúp mình nhanh nhanh với ạ, tuần sau thi rồi:(
#include <bits/stdc++.h>
using namespace std;
bool kt;
int n,i;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if ((kt==true) and (n>1)) cout<<"YES";
else cout<<"NO";
return 0;
}
Viết chương trình sử dụng thủ tục kiểm tra 1 số nguyên dương nhập vào từ bàn phím có phải là số nguyên tố hay không
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
bool kt=true;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>=2) cout<<"YES";
else cout<<"NO";
return 0;
}
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Sử dụng phương pháp làm mịn dần để giải bài toán sau: Cho trước số tự nhiên không âm n, viết chương trình kiểm tra xem số n có phải là số nguyên tố hay không? Chương trình cần thông báo "CÓ" nếu n là số nguyên tế, ngược lại thông báo "KHÔNG".
THAM KHẢO!
def is_prime(n):
if n <= 1:
return "KHÔNG"# Trường hợp n <= 1 không phải số nguyên tố
elif n <= 3:
return "CÓ"# Trường hợp n = 2 hoặc n = 3 là số nguyên tố
elif n % 2 == 0:
return "KHÔNG"# Trường hợp n chẵn lớn hơn
Sử dụng Python để Viết chương trình cho người dùng nhập vào số nguyên dương n, rồi kiểm tra các số nhập vào có phải là số nguyên tố hay không? Và đếm xem có bao nhiêu số nguyên tố được nhập vào thì in ra màn hình.
Bài: CHECKNTO Sử dụng hàm viết chương trình kiểm tra N có phải là số nguyên tố N không (N là số nguyên dương; N ≤ 109 ). Dữ liệu vào: Từ tệp văn bản CHECKNTO.INP gồm • Một số nguyên N Kết quả: Ghi ra tệp văn bản CHECKNTO.OUT Ghi ra “YES” nếu N là số nguyên tố hoặc ghi “NO” nếu N không phải là số nguyên tố.
#include <bits/stdc++.h>
using namespace std;
long long n,i;
bool kt;
int main()
{
freopen("checknto.inp","r",stdin);
freopen("checknto.out","w",stdout);
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>1) cout<<"YES";
else cout<<"NO";
return 0;
}
vết chương trình nhập vào số n,kiể tra n có phải là số nguyên tố hay không?
sử dụng while....do
Var n, i : integer;
Begin
write(‘Nhập số n = ‘);
readln(n);
i := 2;
while (n mod i <> 0) and (i < n) do
i := i + 1;
if i < n then write(n, ‘ là số nguyên tố.’)
else write(n, ‘ là hợp.’)
readln;
End.
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
i:=1;
while i<=n do
begin
if n mod i=0 then inc(dem);
i:=i+1;
end;
if dem=2 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
Viết chương trình nhập vào một số nguyên N từ bàn phím, sau đó kiểm tra N có phải là số nguyên tố hay không?
program kiem_tra_so_nguyen_to;
var
N, i: Integer;
laSoNguyenTo: Boolean;
begin
Write('Nhap vao mot so nguyen duong N: ');
Readln(N);
laSoNguyenTo := True;
if (N < 2) then
laSoNguyenTo := False
else
begin
for i := 2 to N - 1 do
begin
if (N mod i = 0) then
begin
laSoNguyenTo := False;
Break;
end;
end;
end;
if (laSoNguyenTo) then
Writeln(N, ' la so nguyen to')
else
Writeln(N, ' khong la so nguyen to');
Readln;
end.
tệp TXT có các số nguyên, mỗi số một dòng. Viết chương trình đọc các số này vào mảng A và kiểm tra mản này có bao nhiêu số nguyên tố. Lưu ý: trong chương trình trên phải áp dụng chương trình con
uses crt;
const fi='tep.txt'
var f1:text;
a:array[1..100]of integer;
i,n,kt,j,dem:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then inc(dem);
end;
writeln(dem);
close(f1);
readln;
end.