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

    +133.5

    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 Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

const
  C: array[0..5] of Cardinal = ($4A9AAA90, $8AA33308, $8AA2AA88, $4C9AAA90, $22200, $822200);

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.

    nickkk govnokod

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

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

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