14141 có phải là số nguyên tố hay ko
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.


1403 không phải số nguyên tố
vì 1403 chia hết cho hai số nguyên tố là 23 và 61

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.
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.

\(4.25-4.24=4\left(25-24\right)=4.1=4\)
Vì 4 là hợp số nên tổng trên là hợp số.
Ta có: 4.25-4.24=4(25-24)=4.1 là hợp số vì có nhiều hơn 2 ước

Câu 1:mã chương trình:
var i,n,d,j:longint;
begin
readln(n);
for i:=2 to n do
begin
d:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j =0 then d:=d+1;;
if d=0 then writeln(i);
end;
readln;
end.
Câu 2: Mã chương trình:
var i,n,d,t:longint;
begin
readln(n);
if n<2 then write('ko phai snt')else
begin
t:=0;
while n>0 do
begin
d:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then d:=d+1;
if d=0 then n:=n div 10 else begin
t:=1;
break; {thoat khoi lenh}
end;
end;
if t=1 then write('ko phai snt') else write('la snt');
end;
readln;
end.

10405 ko phải là số nguyên tố vì 10405 chia hết cho 5
43 là số nguyên tố vì trừ 1 và chính nó thì nó ko chia hết cho số nào

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.
14141 là số nguyên tố
CM đi bn kia