Untuk menampilkan bilangan kelipatan 3 dari angka 1 sampai dengan angka 20, algoritmanya adalah :
Bilangan
kelipatan 3 : 3,6,9,12,15,18,21,24 ... dst
Nilai
diatas jika dimod3 hasilnya 0
3mod3
= 0 6mod3 = 0 9mod3 = 0
12mod3
= 0 15mod3 = 0
Untuk
nilai i = 1 sampai 20 lakukan
Jika
nilai i mod 3 = 0 maka
cetak
i
Untuk program dalam bahasa pascal adalah:
uses crt;
var i :
integer;
begin
clrscr;
for i : = 1 to 20 do
begin
if i mod 3 = 0 then
write(i:5);
end;
readln;
end.
Hasilnya :
EmoticonEmoticon