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.
Komentar
Posting Komentar