13 lines
296 B
ObjectPascal
13 lines
296 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. |