fork download
copy 
  1. program segitiga_sembarang;
  2. var i,j,k,n : integer; 
  3.  begin 
  4.   readln(n); 
  5.    for i:=1 to n do 
  6.     begin for j:=i to n do 
  7.      begin write(' '); 
  8.     end; 
  9.    for k:=i to j do 
  10.     begin write('*'); 
  11.    end; 
  12.    writeln; 
  13.   end;
  14. end.
Success #stdin #stdout 0s 4892KB
comments (?)
stdin
copy 
7
stdout
copy 
       *******
      ******
     *****
    ****
   ***
  **
 *
https://ideone.com/7LUyfT
segitiga sembarang
language:
Pascal (fpc 3.0.4)
created:
3 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!