Напишите программу, которая строит "линию" из знаков '-' заданной длины. Используйте процедуру - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Напишите программу, которая строит "линию" из знаков '-' заданной длины. Используйте процедуру.

Входные данные

Входная строка содержит единственное натуральное число – длину линии N .

Выходные данные

Программа должна вывести N знаков '-'.

Примеры

входные данные

5

выходные данные

-----

Решение задачи: «Напишите программу, которая строит "линию" из знаков '-' заданной длины. Используйте процедуру»

textual
Листинг программы
procedure line(n:integer);
var i:integer;
begin
for i:=1 to n do write('-');
end;
var n:integer;
begin
write('n=');
readln(n);
line(n)
end.

Объяснение кода листинга программы

  1. Создается процедура line, которая принимает один аргумент n типа integer.
  2. Создается переменная i типа integer, которая будет использоваться в цикле.
  3. Запускается цикл for, который выполняется n раз (размер линии), где n - значение переменной i.
  4. Внутри цикла выводится знак '-'.
  5. После завершения цикла выводится символ новой строки.
  6. Запрашивается значение переменной n с помощью функции readln.
  7. Вызывается процедура line с передачей значения переменной n в качестве аргумента.

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы