Program hhh54;
var x: longint;
begin
read (x);
if (x mod 6=0) and ( x mod 10=4) then write ((x div 100)+((x div 10) mod 10)+(x mod 10))
else write ((x div 100)*((x div 10) mod 10)*(x mod 10));
end.
Зайди на сайт(http://4aynikam.ru/) там с лева конвертер, пиши любое число и он те перевидёт в любую степень))И таблица
Если я тебя понял правильно делается запрос на имя Елена и дату рождения 1989 и выдается количество подходящих под запрос в твоем случае таких четверо ответ номер 4 (4 подходящих)
Function func32725655(i As String)
Dim str() As String, j, zero_one(2) As Integer
zero_one(0) = 0: zero_one(1) = 1
str = Split(i, 0)
j = UBound(str, 1)
i = i & zero_one(j Mod 2)
func32725655 = i
End Function
Excel VBA