Pascal Kelipatan 3

Advertisemen

   Menampilkan bilangan kelipatan 3 dari angka 1 s/d 20

Jawab:

-                    1. Beri nilai awal  A=3

-                    2. Untuk I = 1 sampai 20, lakukan

2.1   Cetak Nilai A

2.2  Hitung : A = A + 3

uses crt;

var I,A: integer;

begin

  clrscr;

  A:=3;

  for I:=1 to 6 do

  begin

  writeln(A);

  A:=A+3

  end;

  Readln;

end.

Advertisemen