6. UNTUK MENAMPILKAN BILANGAN GENAP YANG DIMULAI DARI ANGKA 1 SAMPAI DENGAN ANGKA 50.

algoritmanya adalah sebagai berikut :
Bilangan genap dari 1 sampai 50 = 2,4,6,8,10,12,14,16,18, …… 50
Catatan : bilangan apa saja yag dimod2=0 adalah bilangan genap
Untuk nilai I = 1 to 50 lakukan
Jika nilai Imod2 = 0 maka
Cetak nilai
Untuk program dalam bahasa pascal adalah :
uses crt;
var I : integer;
begin
clrscr;
for I:= 1 to 50 do
begin
if I mod 2= 0 then
write(I:5);
end;
Readln;
end.