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.