fork download
copy 
  1. program segitigasiku2terbalik;
  2. var
  3.   a,b,c,d : integer;
  4. begin
  5.   read(a);
  6.   c:=a;
  7.   for b:=1 to a do 
  8.    begin
  9.     for d:=1 to c do 
  10.      begin 
  11.       write('*');
  12.      end;
  13.     writeln;
  14.     dec(c);
  15.    end;
  16. end.
Success #stdin #stdout 0s 340KB
comments (?)
stdin
copy 
7
stdout
copy 
*******
******
*****
****
***
**
*
https://ideone.com/C7hjrz
segitiga siku2 terbalik
language:
Pascal (fpc 3.0.4)
created:
6 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!