1

Нужно было написать вот такую программу:

Дано целое число 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
7
  • 1
    А с каким числом работает неправильно? (отрицательные?) Кстати, вы могли бы сделать цикл просто по while n > 0 (и выкинуть код после цикла).
    – VladD
    Commented 12 февр. 2014 в 18:10
  • Нет не только с отрицательными. С некоторыми положительными тоже. Commented 12 февр. 2014 в 18:11
  • Хотя возможно у меня Бэсик кривой скачан, но маловероятно. Commented 12 февр. 2014 в 18:14
  • @Влад Алексеев: какими?
    – VladD
    Commented 12 февр. 2014 в 18:14
  • @VladD: Ошибка с отрицательными, вообще какие-то не такие значения выдает. А с положительными любыми дает сумму правильную, а вот количество цифр на 1 больше. Commented 12 февр. 2014 в 18:21

1 ответ 1

2

Используйте операцию целочисленного деления \ вместо /. Бейсик слишком умный и округляет как правильно (к ближайшему четному в случае сомнений), а не как надо. Ну и финальный k = k + 1 не нужен - все цифры уже учтены.

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.