Дано целое число, определить сколько в нем цифр, чему равна сумма, является ли это…

dim a,b,n,s as integerinput ab=an=0x=0dob=b\10x=b mod 10+x ' сумма цифрn=n+1 'сколько цифрloop until b<>0print n, xif a mod 2=0 then print ("четное") else print ("нечетное") a=a mod 100 ' сколько сотенprint a'я не помню точно синтаксис фуникций input и print, так что проверь