Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.01.2009, 21:56   #1
pavelewseew
 
Аватар для pavelewseew
 
Регистрация: 21.01.2009
Сообщений: 4
Вопрос QBasic задача непонятная.

Даны натуральные числа n и m. Получить сумму m последних цифер числа n.
pavelewseew вне форума Ответить с цитированием
Старый 28.01.2009, 18:41   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Допустим, n = 1234, m = 3. Требуется найти сумму m (трех) последних цифр числа n (1234). То есть 4+3+2 = 9

Код:
DIM i, m, s AS INTEGER
DIM n AS LONG
CLS
INPUT "Vvedite n: "; n
INPUT "Vvedite m: "; m
i = 0
s = 0
n = ABS(n)
DO WHILE n > 0 AND i < m
s = s + (n MOD 10)
n = n \ 10
i = i + 1
LOOP
IF i = m THEN
PRINT USING "Summa = ###"; s
ELSE PRINT USING "V chisle net ## cifr. Summa vseh cifr chisla (##) = ###"; m; i; s
END IF
END
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача в QBasic-моделирование калькулятора Петр88 Помощь студентам 8 07.12.2015 22:01
Непонятная ошибка RealSHELS Общие вопросы Delphi 16 24.10.2008 20:49
Задача по Qbasic Ванек Помощь студентам 7 03.01.2008 23:20
Непонятная ошибка Slash Общие вопросы Delphi 6 19.06.2007 14:45