Уровень А. (оценка 3). Напишите программку, которая выводит M линий из

Уровень А. (оценка 3). Напишите программку, которая выводит M линий из знака S, данного пользователем длиной N символов. При запуске программки M, N, S необходимо ввести с клавиатуры. Пример: Количество линий: 2. Длина цепочки: 7. Знак-заполнитель: - ------- ------- Для реализации программы напишите функцию Line, которая принимает два параметра знак-заполнитель S и естественное число N, и выводит на экран одну линию из знаков S длиной N. Пример: Длина цепочки: 7. Знак-заполнитель: - -------

Задать свой вопрос
1 ответ
//PascalABC.NET 3.2 сборка 1318

Var
  m,n,i:integer;
  s:char;

procedure line(c:char;n:integer);
Var
  i:integer;
begin
for i:=1 to n do
write(c);
writeln;
end;
 

begin
readln(m,n);
readln(s);
for i:=1 to m do
line(s,n);
end.

Пример ввода:
2
7
-
Пример вывода:
-------
-------
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт