Найти сумму цифр числа B — QBasic(Бейсик)

disel
1
2
3
4
5
6
INPUT b
DO
    s = s + b MOD 10
    b = b \ 10
LOOP UNTIL b = 0
PRINT s

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment