Обрисовать функцию FillStr(S,Len) строкового типа, отдающую строчку длинны Len, заполненную

Описать функцию FillStr(S,Len) строкового типа, отдающую строчку длинны Len, заполненную циклическими копиями строчки-шаблона S ( заключительная копия строки-шаблона может заходить в результирующую строчку частично).

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

function FillStr(S:string;Len:integer):String;
begin
  var k:=Len div S.Length;
  if kgt;0 then Result:=S*k else Result:='';
  k:=Len-k*S.Length;
  if kgt;0 then Result+=S[:k+1]
end;

begin
  Writeln(FillStr('Это тест!',23))
end.

Итог
Это тест!Это тест!Это т
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт