Viết ct kiểm tra só đó có phải số nguyên tố ko
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
T
23 tháng 2 2019
giải
uses crt;
var n,i,x:longint;
begin
write(' nhap so n: ');readln(n);
x:=0;
for i:=2 to n-1 do
if n mod i=0 then x:=1;
if x=0 then writeln(n,' la so nguyen to ')
else writeln(n,' ko la so nguyen to ');
readln
end.
3 tháng 1 2018
2.
Program bai2;
uses crt;
var i,n,f1,f2: integer;
begin
clrscr;
write('Nhap n: '); readln(n);
f1:=0;
f2:=1;
for i:=1 to n do
begin
write(f1,' ');
f2:=f2+f1;
f1:=f2-f1;
end;
readln;
end.
3 tháng 1 2018
1.
Program bai1;
uses crt;
var i,n: integer;
function kt(n: integer): boolean;
var i: integer;
begin
kt:=true;
for i:= 2 to n-1 do if (n mod i ) = 0 then
kt:=false;
end;
begin
clrscr;
write(' nhap n = '); readln(n);
for i:= 2 to n do
if kt(i) then write(i:3 , ' ');
readln;
end.
12 tháng 5 2022
uses crt;
var n,i,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
QT
2
KV
7 tháng 5 2022
Var n,i,souoc:integer;
Begin
Write('Nhap N = ');readln(n);
souoc:=0;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc=2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
20 tháng 3 2023
program KiemTraSoNguyenTo;
var
N, i: integer;
IsPrime: boolean;
begin
write('Nhap N: ');
readln(N);
IsPrime := true;
if (N < 2) then
IsPrime := false
else
for i := 2 to trunc(sqrt(N)) do
if (N mod i = 0) then
begin
IsPrime := false;
break;
end;
if IsPrime then
writeln(N, ' la so nguyen to')
else
writeln(N, ' khong la so nguyen to');
readln;
end.
TD
2
H9
HT.Phong (9A5)
CTVHS
29 tháng 3 2023
Uses crt;
var n,i,z: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(n mod i=0) then z:=z+1;
if(z=2) then writeln(z,' la so nguyen to')
else writeln(z,' khong phai la so nguyen to');
readln;
end.
29 tháng 3 2023
program PrimeNumber;
uses crt;
var
N, i: integer;
isPrime: boolean;
begin
clrscr;
write('Enter N: ');
readln(N);
if N <= 1 then
begin
writeln('N is not a prime number');
end
else
begin
isPrime := true;
for i := 2 to trunc(sqrt(N)) do
begin
if N mod i = 0 then
begin
isPrime := false;
break;
end;
end;
if isPrime then
begin
writeln('N is a prime number');
end
else
begin
writeln('N is not a prime number');
end;
end;
readln;
end.
LL
10 tháng 9 2020
Số nguyên tố là số chỉ có 2 ước là 1 và chính nó. Số 2; 3; 5; 7 là các số nguyên tố nhỏ nhất Hợp số là số có nhiều hơn 2 ước. Muốn phân biệt được số nguyên tố và hợp số ta phải: - --- -Thuộc lòng dấu hiệu chia hết cho 2; 3; 5; 7
10 tháng 9 2020
Số nguyên tố là số tự nhiên lớn hơn 1 không phải là tích của hai số tự nhiên nhỏ hơn. Nói cách khác, số nguyên tố là những số chỉ có đúng hai ước số là 1 và chính nó. Các số tự nhiên lớn hơn 1 không phải là số nguyên tố được gọi là các hợp số.
20 tháng 3 2023
program BangCuuChuong;
var
N, i, j: integer;
IsEven: boolean;
IsPrime: boolean;
begin
write('Nhap N (0 < N < 10): ');
readln(N);
// Kiểm tra N có phải số chẵn hay lẻ
IsEven := (N mod 2 = 0);
if IsEven then
writeln(N, ' la so chan')
else
writeln(N, ' la so le');
// Kiểm tra N có phải số nguyên tố hay không
IsPrime := true;
if (N < 2) then
IsPrime := false
else
for i := 2 to trunc(sqrt(N)) do
if (N mod i = 0) then
begin
IsPrime := false;
break;
end;
if IsPrime then
writeln(N, ' la so nguyen to')
else
writeln(N, ' khong la so nguyen to');
// In ra bảng cửu chương N
writeln('Bang cuu chuong ', N, ':');
for i := 1 to 10 do
begin
j := i * N;
writeln(N, ' x ', i, ' = ', j);
end;
readln;
end.
Mấy cái phần mình gạch // là giải thích phần code đó làm gì nha.
ML
20 tháng 3 2023
Program HOC24;
var i,n,d: byte;
begin
write('Nhap N: '); readln(n);
writeln('Bang cuu chuong ',n,' : ');
for i:=1 to 10 do writeln(n,' x ',i,' = ',n*i);
if n mod 2=0 then writeln(n,' la so chan ') else writeln(n,' la so le');
d:=0;
for i:=1 to n do if n mod i=0 then d:=d+1;
if d=2 then write(n,' la so nguyen to') else write(n,' khong phai la so nguyen to');
readln
end.
11 tháng 3 2022
#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;
}
Var i,n,d:integer;
Begin
Write('Nhap so can kiem tra ');readln(n);
For i:=1 to n do
If n mod i = 0 then d:=d+1;
If d = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln
End.