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

    +94

    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
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    program Oracle;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  sQuestion : String;
  i : ShortInt;
  bAnswer : Boolean;
Label lExit, lAnswer;
BEGIN
 bAnswer := true;
 WriteLn('Input question: ');
 lAnswer: Read(sQuestion);

 If Length(sQuestion) < 4 then
  Begin
    WriteLn('What "' + sQuestion + '"?');
    Goto lAnswer;
  End;


 If sQuestion[Length(sQuestion)] <> '?' then
  Begin
    WriteLn('It`s not a question.');
    Goto lExit;
  End;

 Randomize;
 If Random(10) = 1 then
  Begin
    WriteLn('But why you ask?');
    Goto lExit;
  End;

  For i := 1 to Length(sQuestion) do
   If bAnswer = true then bAnswer := false
    Else bAnswer := false;

  If bAnswer = true then WriteLn('Yes.')
   Else WriteLn('No.');

 lExit: Readln;
END.

    > Input question:
    > Лурк гавно?
    > No.
    > А ты всегда даешь верные ответы?
    > No.
    > В смысле?
    > What "В смысле?".
    > Ну, в прямом.
    > It`s not a question.
    > Ты будешь отвечать на мой вопрос???
    > No.
    > Тогда иди нахуй.
    > Сам иди нахуй.
    > 0_o

    Запостил: Govnocoder#0xFF, 12 Апреля 2011

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

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