PROGRAM CT59;
USES crt;
VAR i,j:BYTE;
BEGIN
clrscr;
Writeln('Vua ga vua cho');
Writeln('Bo lai cho tron');
Writeln('Ba muoi sau con');
Writeln('Mot tram chan chan');
Writeln;
FOR i:=1 TO 36 DO
FOR j:=1 TO 36 DO
IF (i+j=36) AND (4*i+2*j=100) THEN Write('So ga: ',j,' So cho: ',i);
Readln
END.
Download: http://www.mediafire.com/?2t2vinfy8saybw5
USES crt;
VAR i,j:BYTE;
BEGIN
clrscr;
Writeln('Vua ga vua cho');
Writeln('Bo lai cho tron');
Writeln('Ba muoi sau con');
Writeln('Mot tram chan chan');
Writeln;
FOR i:=1 TO 36 DO
FOR j:=1 TO 36 DO
IF (i+j=36) AND (4*i+2*j=100) THEN Write('So ga: ',j,' So cho: ',i);
Readln
END.
Download: http://www.mediafire.com/?2t2vinfy8saybw5