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.
Tidak ada komentar:
Posting Komentar