Program Pascal Menampilkan Bilangan Ganjil dari 1 sampai n Deret menggunakan If Serta Perulangan For Next

Program Pascal Menampilkan Bilangan Ganjil dari 1 sampai n Deret menggunakan If Serta Perulangan For Next

Nahhh ini adalah salah satu contoh program pascal untuk Menampilkan Bilangan Ganjil dari 1 sampai n Deret menggunakan If Serta Perulangan For Next

1. Programnya

program ganjil;
uses crt;
var
   i,n  :integer;
begin
     clrscr;
     write('batas =');readln(n);
     for  i := 1 to n*2 do
     begin
          if i mod 2 =1  then
          Write(i,',');
     end;
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program