fork download 
  1. program ideone;
  2. var
  3.  a,b,c,n : integer;
  4. begin
  5.   readln(n);
  6.   writeln;
  7.   if n mod 2 = 0 then
  8.    for a := 1 to (n div 2) do 
  9.     begin
  10.      for b := 1 to (n div 2)-a do
  11.       write (' ');
  12.      for c := 1 to (a*2) do
  13.       write ('*');
  14.       writeln;
  15.     end
  16.   else
  17.    for a := 1 to (n div 2)+1 do 
  18.     begin
  19.      for b := 1 to (n div 2)+(1-a) do
  20.       write (' ');
  21.      for c := 1 to (a*2)-1 do
  22.       write ('*');
  23.       writeln;
  24.     end;
  25. end.
Success #stdin #stdout 0s 340KB
comments ()
stdin 
9
stdout 
    *
   ***
  *****
 *******
*********
https://ideone.com/ziufnr
segitiga
language:
Pascal (fpc 3.0.4)
created:
7 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!