Описать функцию fillstr(s,len) строкового типа, возвращающую строку длинны len, заполненную повторяющимися копиями строки-шаблона s ( последняя копия строки-шаблона может входить в результирующую строку частично).
// 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;
// Внимание! Если программа не работает, обновите версию!
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.
Результат
Это тест!Это тест!Это т