- Điều kiện:
- Ước chung lớn nhất là gì? Nếu một số nguyên a bất kỳ chia hết cho số nguyên c được gọi là ước của số nguyên a và a được gọi là bội của c. Nếu 2 số dương a và b bất kỳ cùng chia hết cho một số nguyên c lớn nhất thì c được gọi là ước chung lớn nhất của a và b. Nếu a và b đều bằng 0 thì chúng không có ước chung.
- Bội chung nhỏ nhất là gì? c được gọi là bội chung nhỏ nhất của a và b khi c là số nguyên nhỏ nhất chia hết cho a và b.
UCLN(a,b)=BCNN(a,b)a∗b
- Cách giải: Lấy số lớn hơn trong 2 số đã cho trừ đi nhau. Lặp lại thao tác cho đến khi 2 số bằng nhau thì ngừng => UCLN. Và làm theo công thức trên ta được BCNN.
var a,b,UCLN,BCNN:integer;
begin
write('Nhap vao 2 so a va b');
readln(a,b);
BCNN:=a*b;
While a<>b do
If a>b then a:=a-b
else b:=b-a;
UCLN:=a;
BCNN:=BCNN div UCLN;
write(UCLN,' ',BCNN);
end.
- Cho biết có bao nhiêu số lẽ trong dãy?
- Tính trung bình cộng của các số lẽ trong dãy đó.
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó
Hỏi mỗi loại mấy con?
- Có một trăm con trâu ăn hết một trăm bó cỏ. Mỗi con trâu đứng ăn đưọc 5 bó. Mỗi con trâu nằm ăn được 3 bó và ba con trâu già thì chia nhau chỉ ăn được 1 bó. Hỏi có bao nhiêu con trâu đứng, bao nhiêu con trâu nằm và bao nhiêu con trâu già.
- Phân tích:
+ Trâu đứng ăn 5 => số cỏ ăn là 5 bó => số trâu đứng <=20.
+ Trâu nằm ăn 3 => số cỏ ăn được là 3 bó => số trâu nằm <=33
+ Trâu già = 100 – số trâu đứng – số trâu nằm.
Program ConTrau;
Uses Crt;
Var i,j,k:byte;
Begin
Clrscr;
For i:=1 to 20 do
For j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3 = 100 then
Writeln('Trau dung ',i,' trau nam ',j,' trau gia ',k);
end;
Readln
End.
