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;
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.
#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;
}
#include <bits/stdc++.h>
using namespace std;
int n,k,a,b;
int main()
{
cin>>n>>k;
a=(n+k)/2;
b=(n-k)/2;
cout<<"So hoc sinh nam la: "<<a;
cout<<"\nSo hoc sinh nu la: "<<b;
Return 0;
}
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 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.
đọc kĩ đầu bài đi a trâu b cỏ kìa