Postingan

Menampilkan postingan dengan label perulangan

PASCAL - Bilangan ganjil dan genap dengan perulangan repeat until

Gambar

PASCAL - Perulangan For Do

Program dibawah ini adalah program untuk menampilan bilangan berurutan secara ke bawah dari 1 sampai 20 program perulangan; uses crt; var i :Integer; begin   for i:=1 to 20 do   begin     writeln(i);   end;   readln; end.