INPUT b
DO
s=s+b MOD 10
b=b\10
LOOP UNTIL b=0
PRINT s
Похожие записи/страницы:
- Найти все числа Армстронга состоящие из двух, трех и четырех цифр - Basic(Бейсик)
- Для заданного натурального числа N, не превосходящего 30000, требуется найти ближайшее к нему двоякое число (если таких…
- Даны 2 числа. Найти поразрядное сложение цифр. Т.е. нужно сложить сотки одного числа и другого, затем десятки и единицы-…
- Вводится натуральное число n, определить количество цифр числа и сумму его цифр- QBasic(Бейсик)
- Дано натуральное число:-найти сумму цифр этого числа;-верно ли, что число начинается и заканчивается одной и той же…
- Найти сумму цифр числа B - QBasic(Бейсик)