Kết quả tìm kiếm

Program CLOCK; Uses Crt; Var a,b,c,d: integer; Begin ClrScr; For c:=0 to 5 Do Begin For d:=0 to 9 Do Begin For a:=0 to 5 Do Begin For b:=0 to 9 Do Begin ClrScr...

Program TONG_S; Uses Crt; Var S,n,i: Integer; Function checkn(n:integer):Boolean; Begin If (n<0) or (n>100) then checkn:=False Else checkn:=True; End; //========================================================= Begin ClrScr; Write('NHAP SO NGUYEN "n": '); Readln(n); If...

*Giaỉ bất phương trình sau: ( x + 2 )( x^2 - 2x + 4 ) < x( x + 2 )^2 <=> x^3 + 8 < x^3 + 4x^2 +4x <=> x^3 - x^3 - 4x^2 - 4x+8 < 0 <=> -4x^2 - 4x + 8 < 0 <=> -4x^2 - 8x + 4x +8 < 0 <=> -4x( x + 2 ) + 2( x + 2 ) < 0 <=> ( x + 2 )(-4x + 2 ) < 0 <=> { x + 2 > 0...

Program NO_NAME; Uses Crt; Var i,j,k,x,y,b,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,cot,hang: Integer; a: Array[1..10,1..10] Of Integer; Procedure BOARD; Begin k := 1; Writeln(' | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 |')...

program NO_NAME; uses Crt; var diem1,diem2,diem3,diem4,diem5,diem6,diem7: integer; cau1,cau2,cau3,cau4,cau5,cau6,cau7: string; a,b,c,d,e,f,g : boolean; {=================================================} procedure QUESTION1; begin textcolor(lightblue); writeln('(1)Nam cleans the...

Program KING_OF_MATH; Uses Crt; Var a,b,c,d,e, //FOR ADDITION f,g,h,i,j,z,r, //FOR SUBTRACTION k,l,m,n,o: Integer; //FOR MULTIPLICATION lna,lns,lnm: Longint; ad,sub,multi: Boolean; {==================================================} Procedure LIMITED_THE_BIG_NUMBER1; //FOR ADDITION...