Program Menentukan Bilangan Genap yang Habis Dibagi 3

Nah ini dia sintaks bahasa pemrograman pascal untuk program menentukan bilangan genap yang habis dibagi 3, semoga membantu .. :))

program Menentukan_Bilangan_Genap_Yang_Habis_Dibagi_3;

usescrt;

program Menentukan_Bilangan_Genap_Yang_Habis_Dibagi_3;

usescrt;

var

x,y,bil,sum,count : Integer;

Begin

clrscr;

writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

writeln('+----SelamatDatang di Program PenenentuanBilangan----+');

writeln('+--------AntaraBilangan x dan y akanditentukan-------+');

writeln('+----------bilangangenap yang habisdibagi 3----------+');

writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

writeln(' ');

write('Tekan ENTER untukmemulai');

readln;

writeln(' ');

write('Masukkan x (BilanganAwal) : ');

readln(x);

write('Masukkan y (BilanganAkhir) : ');

readln(y);

sum := 0;

count  := 0;

writeln(' ');

writeln('KESIMPULAN : ');

write('Bilangan yang memenuhiantara lain ');

for bil:=x+1 to y-1 do

Begin

ifbil mod 2 = 0 then

Begin

if bil mod 3 = 0 then

Begin

write(bil,' ');

sum := sum + bil;

count  := count + 1;

End;

End;

End;

writeln(' ');

write('Banyakbilangan : ',count);

writeln(' buahbilangan');

writeln('Jumlahbilangan : ',sum);

readln;

End.