Tin học giúp mik vs

[dungchx ny]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Yêu cầu: Viết chương trình nhập vào số nguyên n. In ra tổng S(n) = 14 + 24+...+n4

Dữ liệu: Một dòng ghi số nguyên n(0<n<=100)

Kết quả: Đưa ra tổng S.

 

[HauBright]

Yêu cầu: Viết chương trình nhập vào số nguyên n. In ra tổng S(n) = 14 + 24+...+n4

Dữ liệu: Một dòng ghi số nguyên n(0<n<=100)

Kết quả: Đưa ra tổng S.

dungchx nyCá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 =))

 

[katashirintarou]

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 =))

HauBrightmà code bằng ngôn ngữ gì nhỉ

 

[HauBright]

mà code bằng ngôn ngữ gì nhỉ

katashirintarouChắc là ngôn ngữ PASCAL XE ))))

 

[HauBright]

mà code bằng ngôn ngữ gì nhỉ

katashirintarouProgram 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 checkn(n)=False Then
Repeat
Write('NHAP LAI SO NGUYEN "n": '); Readln(n);
Until checkn(n)=True;
If checkn(n)=True Then
Begin
For i:=1 to n Do S:=S+(14+10*(i-1));
Writeln('S(',n,') = ',S);
End;
Readln;
End.

 

[HauBright]

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 checkn(n)=False Then
Repeat
Write('NHAP LAI SO NGUYEN "n": '); Readln(n);
Until checkn(n)=True;
If checkn(n)=True Then
Begin
For i:=1 to n Do S:=S+(14+10*(i-1));
Writeln('S(',n,') = ',S);
End;
Readln;
End.

HauBrightCODE NÀY BẠN XEM CÓ ĐÚNG KHÔNG Ạ !

 

[HauBright]

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 checkn(n)=False Then
Repeat
Write('NHAP LAI SO NGUYEN "n": '); Readln(n);
Until checkn(n)=True;
If checkn(n)=True Then
Begin
For i:=1 to n Do S:=S+(14+10*(i-1));
Writeln('S(',n,') = ',S);
End;
Readln;
End.

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