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.

giúp mik đi

mik sẽ cho 5 tick

4.25-2.24=2(50-24)=2.26=52
phép tính là hợp số

Ta có: \(4.25⋮4,\) \(2.24=2.2.12=4.12⋮4\)

\(\Rightarrow4.25-2.24⋮4\)

=> Đây là hợp số

\(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 

Ta có: \(4.25⋮4,4.24⋮4\)

\(\Rightarrow4.25-4.24⋮4\)

\(\Rightarrow\) Đây là hợp số

Số nguyen

là các số chỉ có 2 ước:1và chícộng hoà xã hội chủ nghĩa việt nam nó

2;3;5;7

10001là snt

- Số nguyên tố là các số tự nhiên lớn hơn 1, chỉ có 2 ược là 1 và chính nó.

- B={2, 3, 5, 7}

- Số 10001 không phải số nguyên tố vì không chi hết cho các sô 2, 3, 5, 7

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ố

43 là số nguyên tố

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.

d

D