Perintah For, Downto, Do
uses crt;
var
k,l,n : integer;
begin
clrscr;
write('Masukkan Angka: ');readln(n);
for k := n downto 1 do
begin
for l := 1 to (k-1) do
begin
write(l);
end;
writeln;
end;
readln;
end.
begin
for l := 1 to (k-1) do
begin
write(l);
end;
writeln;
end;
readln;
end.
Show
0 Comments
prev
next
