=146219=73 . 2003 _Ước nguyên tố nhỏ nhất là 73, lớn nhất là 2003

program TimSoLonNhat;

var

     N, i, j, count: integer;

     isPrime: boolean;

function IsPrimeNumber(num: integer): boolean;

var

     k: integer;

begin

     if num < 2 then

     begin

          IsPrimeNumber := False;

          Exit;

     end;

     for k := 2 to Trunc(Sqrt(num)) do

     begin

          if (num mod k) = 0 then

          begin

               IsPrimeNumber := False;

               Exit;

          end;

     end;

     IsPrimeNumber := True;

end;

begin

     Write('Nhap gia tri N: ');

     Readln(N);

     for i := N - 1 downto 2 do

     begin

          count := 0;

          isPrime := IsPrimeNumber(i);

          if isPrime then

          begin

               for j := 2 to Trunc(Sqrt(i)) do

               begin

                    if (i mod j) = 0 then

                    begin

                         count := count + 1;

                    end;

               end;

               if count = 1 then

               begin

                    writeln('So lon nhat nho hon ', N, ' co duy nhat 2 uoc nguyen to la: ', i);

                    break;

               end;

          end;

     end;

     Readln;

end.

1. Là số có nhiều hơn 2 ước

2. Là số chỉ có 2 ước là 1 và chính nó

3. 9

4. Không có số đó

5. Tra bảng số nguyên tố

6. Tìm xem nó có bao nhiêu ước

7. 6; 10; 15; 30

8. Mọi số tự nhiên

9. Số 1

10. Số 0 và 1 không là số nguyên tố hay hợp số

theo mình bạn hải làm sai câu 5 rồi phải bằng 2 mới đúng

1. là STN > 1, và có nhiều hơn 2 ước

2. là STN > 1, chỉ có 2 ước là 1 và chính nó

3. Số 9

4. K có

5. Để tìm số nguyên tố ( a > 1), chỉ cần chứng tỏ rằng nó k chia hết cho mọi số nguyên tố mà bình phương k vượt quá a

6. Tìm xem số đó có bao nhiêu ước tất cả

7. Ư(30)= { 6;10;15;30 }

8.Mọi STN € N*

9. Ư(1)= {1}

10. 0 và 1 k phải số nguyên tố mà cx k phải là hợp số

k cho mk nha

1 không

2 

 Program UCLN;

uses crt;

var a,b : integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la ');readln (b);

while a < > b do

if a >b then a := a - b else b := b - a ;

write ( ' UCLN la :' , a );

readln

end.

1: 

#include <bits/stdc++.h>

using namespace std;

int n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"La so nguyen to";

else cout<<"Khong la so nguyen to";

return 0;

}

i don't know