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.

7 tháng 8 2023

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: 

a: 31;13;53

b: 15;35;51

2:

15=3*5

=>\(Ư\left(15\right)=\left\{1;3;5;15\right\}\)

=>Các ước nguyên tố của 15 là 3;5

8 tháng 10 2023

1:

a:31;13;53

b:15;35;51

2:

15=3*5

=>Ư(15)={1;3;5;15}

=>Các ước nguyên tố của 15 là 3;5

22 tháng 10 2015

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ố

20 tháng 2 2017

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

21 tháng 11 2016

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

15 tháng 3 2022

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;

}