Program Iterasi (Jumlah Pangkat)

Fungsi:  untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya

Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah…

Screen Shot:

uses crt;

var k,jum:double;

i,n:longint;

begin

clrscr;

readln(n);

jum:=0;

for i:=1 to n do

begin

k:=sqr(i);

write(k:0:0);

  if i<>n then

write('+');

jum:=jum+k;

end;

write('=',jum:0:0);

readln;

end.