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
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.
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.
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.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
program bai_giai;
uses crt;
var tho,ga:integer;
begin
clrscr;
for tho:=0 to 43 do
begin
ga:=43-tho;
if ga*2+tho*4=100 then writeln(ga,' con ga va ',tho,' con tho');
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.
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.
for i in range(1,21):
for j in range(1,34):
k = 100-i-j
if 5*i+3*j+k/3==100:
print("Trau dung:",i,"| Trau nam:",j,"| Trau gia:",k)