Oke, kali ini gua posting Program Looping bintang menurun, tetep belajar sob, jangan copy-paste mulu. hahaa :p
uses wincrt;
var
i,j:integer;
begin
for i:=5 downto 1 do
begin
for j:=i downto 1 do
begin
write('*');
end;
writeln;
end;
end.
0 comments:
Post a Comment