contoh program pascal, Perhitungan bilangan

Var I,Jum:integer;
Begin
 Clrscr;
 Jum:=0;
 Write('Penjumlahan bilangan dari 1 - 100 adalah : ');
 for I:=1 to 100 do
  Jum:=Jum+I;
 Write(Jum);
 Readln;
End.

Program Kasus5;
Uses wincrt;
Var I,Jum:integer;
Begin
 Clrscr;
 Jum:=0;
 Write('Penjumlahan bilangan Genap dari 1 - 100 adalah : ');
 for I:=1 to 100 do
  If I mod 2 = 0 Then
   Jum:=Jum+I;
 Write(Jum);
 Readln;
End.


Kurang Relevan? Coba Pencarian Lain!
B