SIGMA PECAHAN

Program Menentukan_Banyak_dan_Jumlah_Bilangan_dari_Bilangan_Pecahan;

Uses crt;
Var jumlah :real;
x,n :integer;
Begin
Clrscr;
Writeln (' SELAMAT DATANG ' );

Writeln (' PROGRAM MENENTUKAN BANYAK & JUMLAH BILANGAN DARI BILANGAN PECAHAN');

Writeln (' OLEH AIRINDA EKTRIA 070793 4B ');

Writeln;
n:=20;
jumlah:=0;

for x:=1 to n-1 do
begin
write ('1/',x*x,' + ');
jumlah:=jumlah+1/(x*x);

end;
write ('1/',n*n);
jumlah:=jumlah+1/(n*n);
writeln;
writeln;
writeln ('Banyaknya:',n);
writeln ('Jumlah:',jumlah:2:2);
readln;

End.