Bilangan kelipatan 3 dan 5

Menampilkan bilangan kelipatan 3 dan kelipatan 5 dari angka 1 s/d 30 
Jawab:

• Untuk i:= 1 sampai 30 lakukan:
• jika i mod 3= 0 maka cetak i
• selain itu jika i mod 5= 0 maka cetak i.

     

uses crt;

var i: integer;

begin 

  clrscr;

  for i:= 1 to 30 do

  begin 
  if i mod 3 = 0 then write(i:4)                                   else 
  if i mod 5 = 0 then write(i:4);

  end;

  readln;

end.