6.6. 6.PROGRAPROGRAM M M BAI6M BAI6BAI6;BAI6;;; PROGRAPROGRAUSES...

Bài 6.

6.

6.

6.

progra

program

m

m Bai6

m

Bai6

Bai6;

Bai6

;

;

;

progra

progra

uses crt;

uses crt;

uses crt;

uses crt;

var x, y:byte;

var x, y:byte;

var x, y:byte;

var x, y:byte;

begin

begin

begin

begin

clrscr;

clrscr;

clrscr;

clrscr;

for x:=1 to 36 do

for x:=1 to 36 do

for x:=1 to 36 do

for x:=1 to 36 do

for y:=0 to 20 do

for y:=0 to 20 do

for y:=0 to 20 do

for y:=0 to 20 do

if (x+y=36) and (2*x+4*y=100) then

if (x+y=36) and (2*x+4*y=100) then

if (x+y=36) and (2*x+4*y=100) then

if (x+y=36) and (2*x+4*y=100) then

writeln('Co ',x,' con Ga');

writeln('Co ',x,' con Ga');

writeln('Co ',x,' con Ga');

writeln('Co ',x,' con Ga');

write('Co ',y,' con Cho');

write('Co ',y,' con Cho');

write('Co ',y,' con Cho');

write('Co ',y,' con Cho');

end

end

end

end;

;

;

;

readln

readln

readln

readln

end

end

end

end.

.

.

.

Ví Dụ

Ví Dụ

Ví Dụ

Ví Dụ