- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
{$APPTYPE CONSOLE}
uses SysUtils;
function Add(const x: Integer; i: Integer): Integer; overload;
begin
Result := x + i
end;
function Add(const x: PChar; i: Integer): PChar; overload;
var
x1: Integer absolute x;
begin
Integer(Result) := x1 + i
end;
const s: PChar = 'KoKoKoBormondos';
begin
Writeln (StrLen(Add(s, 5)))
end.
хотя, сахара, конечно же, не хватает. это вам не сирешето.
просвяти, плиз, темных...
Pi напомнит.