Найти сумму цифр числа B

Категория: Basic
2011-12-13 15:30:40
code: #basic
INPUT b
DO
s=s+b MOD 10
b=b\10
LOOP UNTIL b=0
PRINT s

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, сумма, qbasic