Написать программу, которая считает сумму цифр, введенного с клавиатуры числа — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

INPUT a
DO WHILE a > 0
    s = s + a MOD 10
    a = a \ 10
LOOP
PRINT s

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

Написать программу, которая считает сумму цифр, введенного с клавиатуры числа — QBasic(Бейсик)