program cetak_angka;
uses crt;
var
k:integer;
begin
clrscr;
writeln(' Program Algoritma Cetak Angka dengan For');
writeln(' -----------------------------------------------');
writeln;
for k := 1 to 5 do
begin
writeln(k);
writeln;
end;
readln;
end.
baca juga program algoritma cetak angka dengan repeat
uses crt;
var
k:integer;
begin
clrscr;
writeln(' Program Algoritma Cetak Angka dengan For');
writeln(' -----------------------------------------------');
writeln;
for k := 1 to 5 do
begin
writeln(k);
writeln;
end;
readln;
end.
Hasil Out program tersebut
Semoga Bermanfaat :)
baca juga program algoritma cetak angka dengan repeat
Play Slots At Hr Council, Bld. | Mapyro
BalasHapusHr Council 삼척 출장안마 Casino in 사천 출장샵 Council, 나주 출장마사지 Bld. 9.00. Slot machines have been released at Hr 강릉 출장안마 Council 광주광역 출장마사지 on the city's streets. The casino is on a temporary,