Вывести при помощи процедуры символы, тип и количество которых задаются с клавиатуры.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program procedures_5;
uses crt; var n: integer; c: char; procedure symbol(fn: integer; fc: char); var i: integer; begin for i:=1 to fn do write(fc); end; begin clrscr; write(‘Cимвол > ‘); read(c); write(‘Количество символов > ‘); read(n); symbol(n, c); readkey; end. |