Program HOC24;

var a: array[1..32000] of integer;

ucln,i,n,ucln1: integer;

function uc(x,y: integer): integer;

var tg: integer;

begin

while y<>0 do

begin

tg:=x mod y;

x:=y;

y:=tg;

end;

uc:=x;

end;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

ucln1:=uc(a[1],a[2]);

for i:=3 to n do ucln:=uc(ucln1,a[i]);

write('Uoc chung lon nhat cua day so la: ',ucln);

readln

end.

Ước lớn nhất là : 7

Nếu đúng cho mik nha !

@hung

6=2*3

21=3*7

35=5*7

=>UwCLN(6;21;35)=1

k đi mk giải cho

vì 2n-1 là ước của 11

nên 2n - 1 E {1;-1;-11;11}

2n - 1 \(\in\)Ư ( 11 ) = { 1 ; -1 ; 11 ; -11 }

Với 2n - 1 = 1

=> n = 1

Với 2n - 1 = 11

=> n = 6

Với 2n - 1 = -1 

=> n = 0

Với 2n - 1 = -11

=> n = -5

Vậy : n \(\in\){ 1 ; 6 ; 0 ; -5 }

Lời giải:

a. $ƯC(a,b)\in Ư(36)=\left\{\pm 1; \pm 2; \pm 3; \pm 4; \pm 6; \pm 9; \pm 12; \pm 18; \pm 36\right\}$

b. $Ư(a,b)\in Ư(50)=\left\{\pm 1; \pm 2; \pm 5; \pm 10; \pm 25; \pm 50\right\}$
Suy ra ước có 2 chữ số của $a,b$ là:
$\left\{\pm 10; \pm 25; \pm 50\right\}$

A=3n+1

B=5n+4 gọi d =(A;B) => A chia hết cho d; B chia hết cho d

=>3B-5A =15n+12 - 15n - 5 = 7 chia hết cho d

=> d =1 hoặc d =7

vì hai số không phải nguyên tố cùng nhau 

=> d =7

Vậy UCLN(A;B) =7