K
Khách

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.

20 tháng 6 2023

```cpp
#include <iostream>
using namespace std;

int main() {
int n = 36; // tổng số con
int m = 100; // tổng số chân

int g = (2*n - m/2)/3; int c = (4*n - 2*m)/6; if (g + c == n &amp;&amp; 2*g + 4*c == m &amp;&amp; m % 2 == 0) { cout &lt;&lt; &quot;So con ga: &quot; &lt;&lt; g &lt;&lt; endl; cout &lt;&lt; &quot;So con cho: &quot; &lt;&lt; c &lt;&lt; endl; } else { cout &lt;&lt; &quot;Khong co dap an&quot; &lt;&lt; endl; } return 0;

}
```

Kết quả khi chạy chương trình sẽ là:
```
So con ga: 22
So con cho: 14
```

20 tháng 6 2023

```
So con ga: 22
So con cho: 14
```

nó là này

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.

12 tháng 3 2020
https://i.imgur.com/Kd3jus0.png
11 tháng 2 2017

banhquabanhleuleu

lười viết

15 tháng 1 2017

program gacho;
uses crt;
var a:integer; {1 biến là đủ)
begin
clrscr;
for a:=1 to 36 do {tốt nhất là cứ xét a từ 1 đến 36 cho tổng quát)
begin
if ((4*a+2*(36-a))=100)then {rõ ràng a+b=36 rồi đâu cần xét nữa)
begin
writeln ('so cho la', a);
writeln ('so ga la', 36-a);
end;
end;
readln;
end.

16 tháng 1 2017

cảm ơn bạn nhiều nha

1 tháng 1 2018

program bai1;

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.

1 tháng 1 2018

Gọi x là số gà.

Số chó là:36-x

Số chân gà là:2x

Số chân chó là:4(36-x)

Theo bài ra ta có:2x+4(36-x)=100

<->2x+144-4x=100

<->2x-4x=144-100

<->2x=44

<->x=22

<->số gà là 22 con <->số chó là 36-22=14

Hoặc dùng hệ phương trình:

Gọi x là gà,y là chó.

Ta có hệ phương trình:

x+y=36 <->2x+4y=100

Giair hệ phương trình:x=22, y=14

Vậy gà có 22 con, chó có 14 con

4 tháng 5 2022

Var a:array[1..200] of integer;

i,n,d1,d2,s:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

Begin

If a[i] mod 2 = 0 then d1:=d1+1;

If (a[i] > 0) and (a[i] < 51) then d2:=d2+1;

End;

Writeln('Co ',d1,' so chan');

Write('Co ',d2,' so tu 1 den 50');

Readln;

End.

18 tháng 5 2023

Var a:array:[1..1000] of integer;

i,n,dl,dc:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

If a[i] mod 2 = 0 then dc:=dc+1

Else dl:=dl+1;

End;

Writeln('Co ',dc,' so chan');

write('Co ',dl,' so le');

Readln

End.