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

    −51

    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
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    function SignCount(Count:integer):string;
    var
      S:string;
      CN:Integer;
    begin
      S:='сигнатур';
      CN:=Count mod 1000000;
      CN:=CN mod 1000;
      CN:=CN mod 100;
      if CN > 20 then
      CN:=CN mod 10;
      if (CN >=5) and (CN <=20) then
      else
      begin
        if CN > 1 then
        S:=S+'ы'
        else
        if CN=1 then
        S:=S+'а';
      end;
      Result:=Format('%d %s',[count, s]);
    end;
    
    {
    Выхлоп:
    1 сигнатура
    2 сигнатуры
    3 сигнатуры
    4 сигнатуры
    5 сигнатур
    6 сигнатур
    7 сигнатур
    8 сигнатур
    9 сигнатур
    10 сигнатур
    11 сигнатур
    12 сигнатур
    13 сигнатур
    14 сигнатур
    15 сигнатур
    16 сигнатур
    17 сигнатур
    18 сигнатур
    19 сигнатур
    20 сигнатур
    21 сигнатура
    22 сигнатуры
    23 сигнатуры
    24 сигнатуры
    25 сигнатур
    26 сигнатур
    27 сигнатур
    28 сигнатур
    29 сигнатур
    30 сигнатур
    ...
    }

    Захотелось поизвращаться. Код мой.

    Запостил: voodoodal16, 01 Октября 2016

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

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