Kết quả tìm kiếm

Nếu đúng thì mấu chốt của chương trình nó nằm ở đây nè: For i:=1 to n Do S:=S+(14+10*(i-1)); LÀM VẬY SẼ RA ĐƯỢC S(n)=14+24+...+n4.

CODE NÀY BẠN XEM CÓ ĐÚNG KHÔNG Ạ ! :)

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...

Chắc là ngôn ngữ PASCAL XE :)))))

Cái dòng n4 có phải là: Khi nhập số nguyên "n" : chẳng hạn như nhập n=4, thì nó sẽ đưa ra là S(4)= 14 + 24 + 34 + 44 đúng không bạn. *Tại mình không hiểu chổ đó, nên hỏi cho chắc, chứ để đưa code cho bạn mà sai thì toang =))

ĐÂY LÀ C++ HẢ BẠN. MÌNH CẦN CODE CỦA PASCAL CƠ!

Oke! Cảm ơn bạn ạ!

*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...

TẠI MK COPY VÀO NÊN CÓ GÌ SAI SÓT MONG CÁC BẠN SỬA GIÚP Ạ!

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...