Мне нужно вывести количество дней. Чтобы читалось "по-русски", нужно менять окончание у слова "день" в зависимости от последней цифры количества дней (см. правила русского языка
).
d- кол-во дней, integer.
t- real.
t:=Frac(d*0.1)*10;
If t=1 then dney1:=' день'
ELSE
If (t=2) OR (t=3) OR (t=4) then dney1:=' дня'
ELSE dney1:=' дней';
В итоге когда например если d=22, то t=2 (можете проверить), а dney1=' дней'. В чем ошибка? t ведь считается правильно. Погрешность выставил в МР 0.000001.