Pemrograman Pascal Menentukan Angka Ganjil, Genap Menggunakan (Loop For)

Pemrograman Pascal Menentukan Angka Ganjil, Genap Menggunakan (Loop For)

Buatlah program dengan menggunakan bahasa pemrograman pascal untuk menginput 1 buah bilangan bulat positif dan menampilkan seluruh angka yang merupakan kelipatan 3 atau kelipatan 5 yang kurang dari angka yang diinputkan, serta menampilkan jumlah angka ganjil dan angka genap dari deret bilangan tersebut! (gunakan perulangan for) 

Contoh output program :

 Input batasan angka : 20

==================================== 

 Angka-angka yang merupakan kelipatan 3 atau 5 kurang dari 20 adalah: 3 6 9 10 12 15 18 

 Jumlah angka genap : 4 angka 

 Jumlah angka ganjil : 3 angka 

Contoh Program:

Program no3;

uses crt;

var

inp,i,gen,gan: integer;

begin

        clrscr;

write('Input batasan angka : ');

readln(inp);

for i := 1 to inp do

begin

if (i mod 3 = 0) or (i - 10 = 0) then

begin

if (i mod 2 = 0) then

begin

gen:=gen+1;

end

else

begin

gan:=gan+1;

end;

write(' ',i);

end;

end;

writeln;

writeln('Jumlah angka genap : ',gen);

writeln('jumlah angka ganjil : ',gan);

readln;

end.

Hasil Output Program: