Advertisement
Guest User

triangle

a guest
Feb 27th, 2020
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.45 KB | None | 0 0
  1.  
  2. program HelloWorld;
  3. var i,j,n: integer;
  4.  
  5. begin
  6.     n := 10;
  7.     for i:=0 to n do
  8.         begin
  9.             for j:=0 to n do
  10.                 begin
  11.                 if (i+j) >= (n) then
  12.                     begin
  13.                         write('* ');
  14.                     end
  15.                 else
  16.                     begin
  17.                         write('  ');
  18.                     end
  19.                 end;
  20.                 writeln();
  21.         end;
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement