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.
B1: xác định tối đa số trâu đứng và nằm
B2: sự dụng câu lệnh lặp từ 1-> giới hạn trâu đứng, nằm
B3: gán c=100-a-b
B3: nếu 5*a+3*b+c/3 =100 thì in kq ra màn hình
B4: kết thúc ct
uses crt;
var i,j,k:integer;
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,' va Trau gia ',k);
end;
readln;
end.
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.
Program ConTrau;
Uses Crt;
Var i,j,k:byte;
Begin
Clrscr;
Textcolor(Green);
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.
Bài này hình như chỉ dùng for thôi
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.
program tamgiac;
var a,b,c,cd,cr,ch: real;
Begin
write('nhap mot canh tam giac vao day'); readln(a)
write('nhap canh thu hai'); readln(b);
write('nhap canh thu ba'); readln(c);
If (a+b>c) and (b+c>a) and (c+a>b) then
If a=b and b=c and a=c then write(' tam giac do la tam giac deu);
If If a=b then write(' tam giac can')
Else If c=b then write(' tam giac can')
Else If a=c then write(' tam giac can');
If \(a\cdot a=b\cdot b+c\cdot c\) then write('tam giac vuong')
Else If \(b\cdot b=a\cdot a+c\cdot c\) then write('tam giac vuong')
else If \(c\cdot c=b\cdot b+a\cdot a\) then write('tam giac vuong');
readln;
End
B3
program B3;
uses crt;
var i,n,s :integer;
begin
clrscr;
s:=1;
write('Nhap so cac so : ');Readln(n);
for i:=1 to n do
begin
s:=s*i;
end;
write('Tich : ',s);
end.
VD: 2,4,6
- số hàng trăm là 2
- số hàng chục là 4
-số hàng đơn vị là 6
- Tổng các chữ số:2+4+6=12
GIÚP MK VS MK ĐANG CẦN GẤP!!! 
uses crt;
var i:integer;
begin
clrscr;
for i:=9 to 25 do
if (i*2+(36-i)*4)=100 then writeln('so ga la: ',i);
writeln('so cho la: ' ,36-i);
readln;
end.
uses crt;
var i,j: integer;
begin
clrscr;
for i:=1 to 20 do for j:=1 to 33 do if 5*i+3*j+(100-i-j)/3=100 then writeln('Trau dung: ',i,' | Trau nam: ',j,' | Trau gia: ',100-i-j);
readln
end.