fork download
copy 
  1. program segitigasiku2;
  2. var
  3.   a,b,c,d : integer;
  4. begin
  5.   read(a);
  6.   c:=1;
  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.     inc(c);
  15.    end;
  16. end.
Success #stdin #stdout 0s 4464KB
comments (?)
stdin
copy 
9
stdout
copy 
*
**
***
****
*****
******
*******
********
*********
https://ideone.com/63wWY0
segitga siku2
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!