1. Список говнокодов пользователя we-stalkers

    Всего: 1

  2. Pascal / Говнокод #4675

    +145

    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
    {pascal}
    {$M 65520,0,10000}
    program govnokod;
    a:word;
    begin
    repeat
    writeln('кто считает что он дебил нажмите 1, кто наоборот 2');
    readln(a);
    if a=1
    then
    writeln('да ты прав');
    readln
    else
    writeln('да нет ты не понял, надо нажать 1');
    until a=1
    end.

    просто прикольная надоедаловка,

    we-stalkers, 18 Ноября 2010

    Комментарии (7)