program jajargenjang

program mencetak_jajargenjang;
uses wincrt;
var i,j,k,l,n : integer;
begin
     write('input nilai n= ');
     readln(n);
     for i:=1 to n do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;
          for k:=1 to n do
          begin
          write(' *');
          end;
          writeln;
     end;
     readkey;
end.

Please Give Us Your 1 Minute In Sharing This Post!

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →

Powered By: BloggerYard.Com