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

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