Помогите пожалуйста с задачками.

[arhan1]

1.Дано натуральное число n(n 100), определяющее возраст человека (в годах). Дать для этого числа наименование " год ", " года " или " лет ": например, один год, 23 года, 45 лет и т.д.
2.Дано вещественное число А. Определить количество цифр после десятичной запятой у данного числа.
3.Дан массив А(10). Найти элементы, абсолютная величина которых больше 5.

 

[Zato]

1- преобразовываем переменную в текст, берём крайний справа символ, а дальше через Select проставляем значения.

2-преобразовываем число в текст, дальше можно просто Split ом разбить число на две части и через Len посмотреть размер. А можно просто перебирать число через Mid.

3-ну это тупо перебор типа:

for i=0 to 10
if a(i)>5 then msgbox(str(i)+" больше.")
next

 

[hosm]

1- преобразовываем переменную в текст, берём крайний справа символ, а дальше через Select проставляем значения.

уже обсуждали как-то похожее для "наименования", в ветке по лотусу. надо учитывать диапазон 11-19 лет, остальное проверять последнюю цифру 1 - год, 2-4 - года, остальное - лет.
3.

Найти элементы, абсолютная величина которых больше 5

насколько я знаю, абсолютная величина - это модуль числа
т.е. либо abs(a(i))>5 (если есть такая ф-ция), либо проверка выполнения условия (a(i)>5) OR (a(i)<-5)