Question

How to repeat a string n times in Pascal

Answer 1

program RepeatStringProgram;

function RepeatString(s: string; n: Integer): string;
var
  i: Integer;
  resultStr: string;
begin
  resultStr := '';
  for i := 1 to n do
    resultStr := resultStr + s;
  RepeatString := resultStr;
end;


var
  result: string;
begin
  result := RepeatString('abc ', 3);
  writeln(result); 
end.




(*
run:
  
abc abc abc 
  
*)

 

70+ SQL courses for beginners and professionals