tuki2501

PFLOWER

Jan 7th, 2021 (edited)
1,393
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. program PFLOWER;
  2. var i, j, n:integer;
  3.  
  4. Begin
  5.   readln(n);
  6.   for i:=1 to n do
  7.   begin
  8.     for j:=1 to n do
  9.     begin
  10.       if j > i then write('# ')
  11.       else write('* ');
  12.     end;
  13.     for j:=1 to n do
  14.     begin
  15.       if j <= n - i then write('# ')
  16.       else write('* ');
  17.     end;
  18.     writeln;
  19.   end;
  20.   readln;
  21. End.
Advertisement
Add Comment
Please, Sign In to add comment