1. Pascal / Говнокод #15577

    +96

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 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.

    http://govnokod.ru/15510#comment221692

    Запостил: gost, 26 Марта 2014

    Комментарии (12) RSS

    Добавить комментарий