Программа выводит заданное пользователем количество звездочек.
Решение:
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program procedures_2;
uses crt; var z: integer; procedure zvezd(n: integer); var i: integer; begin for i:=1 to n do write(‘*’); end; begin clrscr; write(‘Количество звездочек > ‘); read(z); zvezd(z); readkey; end. |