Bài tập 6 trang 51 SGK Tin học 11

Chương trình cài đặt:

program Bai6;

uses crt;

var x, y:byte;

begin

clrscr;

for x:=1 to 36 do

for y:=0 to 20 do

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

begin

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

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

end;

readln

end.

-- Mod Tin Học 11 HỌC247