MENAMPILKAN ANGKA GANJIL

MENAMPILKAN ANGKA GANJIL

        Di dalam progam ini hanya angka ganjil saja yang tercetak atau terlihat. lebih jelasnya seperti gambar dinawah ini .

jika ingin mencobanya silahkan mencoba script dibawah ini :

program angka_ganjil;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

i,A : integer;

begin

  I:=1;

  writeln('Nama : Maisirotul Rizka');

  writeln('Nim  : 114224022');

  writeln('--------------------------');

  writeln('--------------------------');

  writeln;

  writeln('    ============================');

  writeln('       Menampilkan Angka Ganji');

  writeln('    ============================');

  writeln;

  while I<= 10 do

  begin

  A:=I*2-1;

  writeln(A);

  I:=I+1;

  end;

  readln;

end.

Selamat mencoba gays .. ^^