Количетсво цифр натурального числа

[Джиган]

Ребята, очень нужна помощь по задачке.
Дано натуральное число.
Вычислить кол-во всех цифр числа;
сумму цифр кратных 3;
произведение цифр больших числа X.

Дали подсказку: чтобы получить цифры в VBA необходимо делить число на 10 (знак "\"), пока оно не станет равно 0. Таким образом остаток - это и будут полученные цифры. И с ними необходимо произвести выше указанные операции.

Я решил ее так, но Basic ругается:

Sub n()
Dim n As Long, x As Integer, g As Byte, k As Byte, sum As Integer, pr As Integer
n = InputBox("Введи натуральное число")
x = InputBox("Введи x")
k = 0
sum = 0
pr = 1
    Do
        g = n \ 10
        k = k + 1
        If g Mod 3 = 0 Then sum = sum + g
        If g > x Then pr = pr * g
    Loop While n Mod 10 <> 0
MsgBox ("Количество цифр числа=" & k)
MsgBox ("Сумма цифр кратных трем=" & sum)
MsgBox ("Произведение цифр больше цифры X=" & pr)
End Sub

В чем же принципиальная ошибка? Может быть здесь надо все таки обычный цикл с параметром?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ошибка тут:

g = n \ 10

вы пытаетесь получить цифру делением на десять - а надо брать остаток от деления на 10
возьмите N = 789
и подумайте, что Вы пытаетесь в g с помощью g = n \ 10


попробуйте так:

    Do
        g = n Mod 10
        k = k + 1
        If g Mod 3 = 0 Then sum = sum + g
        If g > x Then pr = pr * g
        n = n \ 10
    Loop While n > 0

[Trust_357]

#include<iostream>
using namespace std;
void main()
{
	setlocale(LC_CTYPE, "Rus");
	int n=0,m=0,s=0,p=1,x=0;//n-число введённое m-от введённого по числу s-сумма кратных 3 p-произведение больших числа X
	short i=0,j=0;//i-колличество цифр
	cout<<"\t\tВведите натуральное число\n\n";
	cin>>n;
	cout<<"\t\tВведите число X\n\n";
	cin>>x;
	for(;n>0;i++)
	{
		m=n%10;
		if(m%3==0)
			s+=m;
		if(m>x)
			j++;
			p=p*m;
		if(n<10)
			break;
		n/=10;
	}
	if(j==0)
		p=0;
	cout<<m<<endl;
	cout<<"\t\tКолличество цифр="<<i<<"\n\n\t\tСумма цифр кратных 3м="<<s<<"\n\n\t\tПроизведение цифр больших Х="<<p<<endl;
}

[Джиган]

Спасибо большое ребята! Попробую!