Нужно было написать вот такую программу:
Дано целое число n, используя операции получения остатка от деления и от деления на цело, подсчитать и вывести на экран количество цифр и их сумму.
Я написал эту программму, но она работает со сбоями. То есть иногда правильно отвечает, а иногда нет. Помогите найти ошибку в программе. Заранее спасибо за помощь.
QBasic
CLS
DIM s,k,n AS INTEGER
INPUT "Введите целое число", n
k=0: s=0
DO WHILE n > 0
k=k+1
s=s+( n MOD 10 )
n=n/10
LOOP
k=k+1
s=s+( n MOD 10 )
PRINT "Количество цифр числа", k
PRINT "Сумма цифр числа", s
while n > 0
(и выкинуть код после цикла).