Ngày tải lên :
15/06/2013, 01:26
... Writeln('He PT co vo so nghiem dang: x,
y=(',c1,'-',a1,'x)/',b1)
End
Else IF Deltax=Deltay then
Writeln('He PT co vo so nghiem dang: x,
y=(',c1,'-',a1,'x)/',b1)
... Write(i,'x',j:2,'=',i*j:2,' ');Writeln;
End;
Readln
END.
Program BaiToanGaCho;
Var sg,sc: Byte;
BEGIN
Writeln(&apos ;Bai toan co Ga + Cho = 36 con. Chan ga + Chan
Cho = 100 chan');
... then
Writeln('Ket qua So Ga la: ',sg,' So Cho la:
',sc);
Readln
END.
Program BaiToanTramTrauTramCo;
Var td,tn,tg: Byte;
BEGIN
Writeln('Co 100 Trau an 100 bo co.');
...