Написать процедуру, которая печатает 60раз указанный символ, каждый с новой строки....

Question

Написать процедуру, которая печатает 60раз указанный символ, каждый с новой строки. Pascal abc.net

Answer 1

// PascalABC.NET 3.2, сборка 1447 от 22.05.2017
// Внимание! Если программа не работает, обновите версию!

procedure Print60(c:char);
begin
  Write(60*(c+NewLine))  
end;

// Тестовый вызов
begin
  Print60(ReadlnChar)
end.

Comments

Написать процедуру,которая печатает 60раз указанный символ (введённый с клавиатуры),каждый с новой строки.Pascalabc.net

---

Изменить не успел) Да и забыл))

---

Спасибо)