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.
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.
a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
print(a,b,c,"la ba canh cua tam giac")
else:
print(a,b,c,"khong la ba canh cua tam giac")
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.