Question

Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'.

Answer 1

Program prog1;
var
n,null:integer;
begin
null:=1;
write('Введите число:');
readln(n);
while n>=null do
begin
null:=null+1;
write('-');
end;
readln;
end.

Answer 2

Процедура в Паскале, которая принимает параметр N - натуральное число, и выводит на экран линию из N символов '-' может быть следующей:

procedure PrintLine(N: integer);
var
  i: integer;
begin
  for i := 1 to N do
    write('-');
  writeln;
end;

В этой процедуре используется цикл `for`, который выполняется N раз. На каждой итерации цикла выводится символ '-', и после завершения цикла происходит переход на новую строку с помощью процедуры `writeln`.