1-2
2-1
3-2
1-4
не уверена что правильно но........
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, так что проверь
254000000 = 254 · 10⁶
254 = 0.254 · 1000 = 0.254 · 10³, тогда
254 · 10⁶ = 0.254 · 10⁶ · 10³ = 0.254 · 10⁹
<h2>Ответ</h2>
0.254 · 10⁹