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

    Всего: 1

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

    +96

    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
    program lucky;
    var a0,a1,a2,a3,a4,a5,a6: integer;
    begin
      for a0:= 0 to 9 do
        for a1:= 0 to 9 do
          for a2:= 0 to 9 do
            for a3:= 0 to 9 do
              for a4:= 0 to 9 do
                for a5:= 0 to 9 do
                  if (a0+a1+a2)=(a3+a4+a5) then
                    begin
                      writeln(a0,a1,a2,a3,a4,a5);
                      break;
                    end;
      readln;
    end.

    Поиск всех возможных счастливых билетов (у которых сумма первых трех чисел совпадает с суммой последних трех)

    Schrodinger, 04 Ноября 2011

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