Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов –.
Program prog1;
var
n,null:integer;
begin
null:=1;
write(Введите число:);
readln(n);
while n>=null do
begin
null:=null+1;
write(-);
end;
readln;
end.
Оцени ответ
