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ụ