Pemograman pascal : bilangan ganjil 1-100 | Uphik Lamers

Saturday, April 23, 2011

Pemograman pascal : bilangan ganjil 1-100

 
Menampilkan bilangan ganjil dari angka 1 s/d 100 
    1. Beri Nilai A = 2.
    2. Untuk  I = 1 sampai 100 lakuka 
        2.1  Cetak Nilai A
        2.2 Jika A mod 2 = 1 , maka nilai A = bilangan ganjil
uses crt;
var I,A: integer;
begin
 A:=1;
 clrscr;
     for I:= 1 to 100 do
     begin
     if I mod 2= 1 then
     write(I:5);
   end;
     Readln;
 end.
Post a Comment