Viết chương trình

[cochunho1111]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

có bài pascal 8, ai làm được thì giúp nha:
Viết chương trình giải bài toán:
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn

 

[love_minh95]

code

begin
writeln('sau khi giai giai he pt bac 2 ta co:');
writeln('so ga=',22);
writeln('so cko=',14);
end.

 

[hoathuytinh16021995]

thế thì bó tay với bạn rồi!
có giỏi bạn làm bài nghiêm túc đi!
tớ thách đấy! hjhj

 

[yuper]

- Của em đây
- Bài của love_minh95 đúng là bá đạo =))


Var g,c:real;
begin
x+y=36;
2x+4y=100;
g:=0;
c:=0;
while g<36 do
begin
c:=36-g;
if 2*g+4*c=100 then writeln('so ga la: ',g,' so cho la: ',c);
g:=g+1;
end;
readln
end.

 

[love_minh95]

optimel

x+y=36;
2x+4y=100;
trong pascal có cả câu lệnh này nữa à@-)

 

[quanghero100]

uses crt;
var x:integer;
begin
   clrscr;
   x:=0;
  repeat
      inc(x);
   until 2*x+(36-x)*4=100;
   writeln('co ',x,' con ga va ',36-x,' con cho');
 readln;
end.