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

    • ava guest 01.06.2009 15:35 # 0

      Таки да, без пол-литра не разберешься.
      Ответить

    • ava -A- 24.08.2021 20:37 # 0

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

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