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\}$

Câu 1 :

Tham khảo

Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được

Input : Dãy A gồm N số nguyên a1....aN;

Output : Trung bình cộng của  các số dương;

B1 : Nhập N số nguyên a1.... aN;

B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;

B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];

B4 : dem <--- dem + 1;

B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;

B 6 : i <--- i + 1 rồi quay lại B3;

Câu 2 :

Tham khảo

Ta nhận thấy rằng, bội số chung nhỏ nhất của hai số nguyên dương a, b có thể được tính theo công thức:

ab/d

trong đó d là ước chung lớn nhất của a và b.

Bởi vậy:

Nên viết hàm để tính bội chung nhỏ nhất của hai số nguyên dương vì chương trình con cần trả ra một giá trị;

- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b cần sử dụng hàm tính ước chung lớn nhất của a và b.

- Hàm tính ước chung lớn nhất của hai số nguyên dương a, b:

function ucln (a, b: integer): integer;

var r: integer;

begin

while b>0 do begin

r: = a mod b ,a : = b ; b:= r; end; ucln:= a; and;

- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b:

This is a modal window.

lunction bcnn(a, b: integer): integer;

begin

bcnn:= a*b div ucln(a, b);

end;

Khi đó, chương trình con tính bội số chung nhỏ nhất của hai số nguyên dương a, b như sau:

program bai4_chuong6;

use crt ;

vai

X y: integer;

function ucln(a, b: integer): integer;

var r: integer;

begin

while b>0 do begin

r:= a mod b; a: = b ,b:= r;

end; ucln:= a;

end;

txnction bcnn(a, b: integer): integer;

begin

bcnn:= a*b div ucln(a, b);

end;

Begin

clrscr;

writeln('Nhap vao hai so can tim BCNN');

write ('x=') , readln(x); write ('y=') , readln(y);

writeln('bcnn cua hai so',x:4,'va',y:4,'la',bcnn(a,b)

readln

End.

Câu 3 : chịu

Câu 1: 

uses crt;

var m,n,ucln,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

ucln:=1;

if m<n then 

begin

for i:=1 to m do 

if (m mod i=0) and (n mod i=0) then 

  begin

if ucln<i then ucln:=i;

end;

end

else begin

for i:=1 to n do 

  if (m mod i=0) and (n mod i=0) then 

begin

if ucln<i then ucln:=i;

end;

end;

writeln(ucln);

readln;

end.

Câu 2: 

uses crt;

var m,n,bcnn,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

bcnn:=m*n;

for i:=m*n-1 downto 1 do 

  if (i mod m=0) and (i mod n=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

int BCNN(int a, int b)

{

int result = UCLN(a, b);

return a * b / result;

}

int main()

{

int a, b; cout << "a = ";

cin >> a;

cout << "b = ";

cin >> b;

int result = UCLN(a, b);

cout << "UCLN : "<<result; cout << "\n";

result = BCNN(a, b);

cout << "BCNN : " << result << endl;

system("pause");

}

Biết viết mỗi C++, Pascal thì miss gần hết :(

uses crt;

var a,b,bcnn,i:longint;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then 

   begin

if bcnn>i then bcnn:=i;

end;

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.

Câu 1 :

a) Đầu vào : Giá trị chiều cao của các bạ học sinh khối 6 .
   Đầu ra : Giá trị chiều cao của bạn học sinh có chiều cao thấp nhất khối 6 .

b) Đầu vào : Giá trị của ba số a,b và c .
     Đầu ra : Giá trị trung bình cộng của ba số a,b và c .

c) Đầu vào : Giá trị của hai số tự nhiên a và b .
    Đầu ra : Giá trị bội chung nhỏ nhất của hai số tự nhiên a và b .



Câu 2 :

Đầu vào : Giá trị đoạn thẳng 2a,b và c .
Đầu ra : Giá trị hình tam giác ABC .

 

$#$^*#@!#&%&!@$#&~$&!&@!%$&^*!

Ame

\(\frac{a}{b}=\frac{2}{5};BCNN\left(a,b\right)=100\)

đặt: a=2k;b=5k khi đó BCNN (a,b)=BCNN(2k;5k)=10k=100 nên k=10 hay a=20;b=50