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

Question

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

Answer 1

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

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

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

Результат
Это тест!Это тест!Это т