- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 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 сигнатур
...
}
Захотелось поизвращаться. Код мой.
guest 01.10.2016 16:25 # −62
CrashTesterAnusov 01.10.2016 16:44 # −126
guest 01.10.2016 17:17 # −63
Steve_Brown 03.10.2016 14:38 # −60
CrashTesterAnusov 03.10.2016 14:56 # −124
3_dar 01.10.2016 17:46 # −61
guest 01.10.2016 22:07 # −52
guestinh0 02.10.2016 22:51 # −61
Как на этой питушне можно что-то кодить? Толи дело царский Си.
А это школота петушинная анскильная
kerman 02.10.2016 00:07 # −60
kipar 02.10.2016 16:06 # −59
3uMuCTOH 17.11.2022 01:08 # 0
CTOMATOJlOr 17.11.2022 00:56 # 0
guest 04.10.2016 02:24 # −60
Тот ссаный маскаль
pdro33 04.10.2016 17:37 # −55
тихо ветер ночной будет петь о своем,
и на миг позабыв, что такое любовь, мы с тобою начнём...
Танцы вдвоём... Странные танцы...
День переждём... Не будем прощаться.
guest 04.10.2016 22:26 # −58
guest6 17.11.2022 00:57 # 0