Kiểm tra M có phải số nguyên tố hay ko
M =12344. 54752.88322 - 209
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
24 tháng 2 2022
uses crt;
var n,m,i,dem,t,t1,d1:integer;
//chuongtrinhcon
function ktnt(var n:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if (kt=true) then ktnt:=true
else ktnt:=false;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n,m);
if (ktnt(n)=true) then writeln(n,' la so nguyen to')
else writeln(n,' ko la so nguyen to');
dem:=0;
t:=0;
for i:=2 to n do
if (ktnt(i)=true) then
begin
write(i:4);
t:=t+i;
dem:=dem+1;
end;
writeln;
writeln(t,' ',dem);
t1:=0;
d1:=0;
for i:=n to m do
if ktnt(i)=true then
begin
write(i:4);
t1:=t1+i;
inc(d1);
end;
writeln;
writeln(t1,' ',d1);
readln;
end.
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.
TT
1
KV
11 tháng 3 2023
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.
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.
30 tháng 9 2017
Xác định bài toán:
+ Input là điều kiện cho trước
+ Output là kết quả cần thu được.
Đáp án: A
12 tháng 8 2023
def kiem_tra_nguyen_to(n):
if n < 2:
return False
for i in range(2, int(n ** 0.5) + 1):
if n % i == 0:
return False
return True
def kiem_tra_nguyen_to_cung_nhau(m, n):
if kiem_tra_nguyen_to(m) and kiem_tra_nguyen_to(n):
return True
return False
M = int(input("Nhập số M: "))
N = int(input("Nhập số N: "))
if kiem_tra_nguyen_to_cung_nhau(M, N):
print("Hai số", M, "và", N, "là hai số nguyên tố cùng nhau.")
else:
print("Hai số", M, "và", N, "không phải là hai số nguyên tố cùng nhau.")
QC
2
25 tháng 1 2021
uses crt;
var a,x:longint;
{------------------ham-kiem-tra-so-nguyen-to---------------}
function ktnt(x:longint):boolean;
var kt:boolean;
i:longint;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{---------------chuong-trinh-chinh-------------------}
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>10;
if ktnt(a)=true then
begin
x:=a;
repeat
a:=a div 10;
if ktnt(a)=true then a:=a div 10;
until a<10;
if (ktnt(a)=true) and (a>1) then writeln(x,' la so sieu nguyen to')
else writeln(x,' khong la so sieu nguyen to');
end
else writeln(a,' khong la so sieu nguyen to');
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.
Vì \(1234⋮2\) => \(1234^4⋮2\) => \(1234^4.5475^2.8832^2⋮2\)
Mà \(20^9⋮2\) do \(20⋮2\)
=> \(M=1234^4.5475^2.8832^2-20^9⋮2\)
Mà 1 < 2 < M
=> M là hợp số, không là số nguyên tố
12344 có số tận cùng là 6
5675 2 có số Tc là5
88323 có số tận cùng là 8
\(\Rightarrow\) 12344 . 56752 . 88323 có tận cùng là 0
\(\Rightarrow\) M có số tận cùng là 0
\(\Rightarrow\) M \(⋮\) 10
M là hợp số
M \(\in\) N , M > 1