13 lines
338 B
ObjectPascal
13 lines
338 B
ObjectPascal
// Создание функции Concat с переменным числом параметров
|
||
|
||
function Concat(params strs: array of string): string;
|
||
begin
|
||
var sb := new System.Text.StringBuilder;
|
||
foreach x: string in strs do
|
||
sb.Append(x);
|
||
Result := sb.ToString;
|
||
end;
|
||
|
||
begin
|
||
Writeln(Concat('Pascal','ABC','.NET'));
|
||
end. |