Advertisement
Guest User

bintang-while-do

a guest
Jan 29th, 2020
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.27 KB | None | 0 0
  1. program bintang;
  2. uses crt;  
  3.  
  4. var
  5.     i, n, b: Integer;
  6.  
  7. begin
  8.     clrscr;
  9.  
  10.     i := 0;
  11.      
  12.     write('n = ');
  13.     readln(n);
  14.  
  15.     while i <= n do
  16.     begin
  17.         b := 1;
  18.         while b <= n-i do
  19.         begin
  20.             b := b + 1;
  21.             write('*');
  22.         end;
  23.         i := i + 1;
  24.         writeln;
  25.     end;
  26.  
  27. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement