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

Question

Дано целое число, определить сколько в нём цифр, чему равна сумма, является ли это число четным и сколько в нем сотен? надо написать программу в Q_BASIC. всю четверть проболела, очень нужна помощь(

Answer 1

dim a,b,n,s as integer

input a

b=a

n=0

x=0

do

b=b\10

x=b mod 10 +x ' сумма цифр

n=n+1 'сколько цифр

loop until b<>0

print n, x

if a mod 2 = 0 then print ("четное") else print ("нечетное")

a=a mod 100 ' сколько сотен

print a

'я не помню точно синтаксис фуникций input и print, так что проверь