@ThoriqAhmada
Jawabanya 118 dari A[7] * A[6] + A[6] * A[5] + A[5] * A[4] + A[4] * A[3] + A[3] * A[2] + A[2] * A[1] = 8 * 6 + 6 * 5 + 5 * 4 + 4 * 3 + 3 * 2 + 2 * 1= ...
var n,a,b:longint; c:double; begin readln(n); a:=n*n+n; b:=2*(n*n+n+1); c:=a/b; writeln(c:0:5); end. rumus Sn pembilangnya (n(n+1)/2); sedangkan rumus...
var a,b,c,n,total,count:longint; begin count:=0; a:=0; b:=0; c:=1; total:=c; readln(n); while total<=n do begin b:=a; a:=c; c:=a+b; total:=total+c;...