Pascal Kelipatan 3 | Uphik Lamers

Saturday, April 23, 2011

Pascal Kelipatan 3

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