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

    +153

    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
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    program Drink;
     
    {$APPTYPE CONSOLE}
     
    uses
      SysUtils,
      Windows;
    
    const
      C: array[0..5] of Cardinal = ($64AABAB8, $54AAA288, $54AB3A90, $54AAAAA0, $563ABBB8,$60820000);
     
    var
      I: Byte;
      B: PByte;
    begin
      for I := 191 downto 0 do
      begin
        B := @C[I div 32];
        Inc(B, (I - (I div 32) * 32) div 8);
        if (B^ and (1 shl (I mod 8))) <> 0 then
          Write('X')
        else
          Write(' ');
        if (I mod 32) = 0 then
          Writeln('');
      end;
      ReadLn;
    end.

    Запостил: guest, 31 Мая 2009

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

    • Таки да, без пол-литра не разберешься.
      Ответить
    • Когда мы поехали, я заметил ещё одного на заднем сиденье. Проехав немного по дороге, мы свернули в лес, он сказал, что так можно путь сократить. Меня это насторожило, но я не мог ничего сделать, так как двери были автоматически заблокированы. Проехав немного по лесу и доехав до небольшой поляны в глубинке, мы остановились.
      Ответить

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