Jumlah dan rata - rata deret bilangan genap

arif zainurrohman

program arif_jumlah_rata_deret;
uses wincrt;
var
   y,angka, x, hasil,jum : integer;
begin
     write ('Masukan banyaknya bilangan dalam deret yang akan dihitung    : '); readln (angka);
     writeln ('deret genap :');
     hasil:=0;
     y:=2;
     for x := 1 to angka do
     begin
          write(y,' ');
          y:=y+2    ;
          hasil := hasil+x;
          jum:=jum+angka;
     end;
     writeln;
     writeln('jumlah bilangan genap dalam deret : ',jum+angka);
     writeln('Rata-rata deret bilangan genap adalah         : ', (hasil/angka)*2:0:0);
end.


Kota Pempek , 30 Maret 2012

akhukum fillah arif zainurrohman