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)