Bilangan kelipatan 3 dan 5 | Uphik Lamers

Saturday, April 23, 2011

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.
Post a Comment