Процедура выводит на экран строку из звездочек
Написать процедуру которая выводит на экран строку состоящую из
звездочек. Длина строки(количество звезд) является параметром процедуры.
Решение:
Procedure dlina(d:byte);
var i:byte;
begin
for i:=1 to x do;
write('*');
end;
Объяснение:
Думаю здесь все понятно, цикл будет выполняться от 1 до х (какое-то число). Чему будет равен х, столько звездочек будет выведено на экран.
|
| Категория: С подпрограммой | Добавил: deespe (29.01.2011)
|
| Просмотров: 4580
| Рейтинг: 5.0/1 |
|
