Вводиться число А меньше 1000. Необходимо определить сумму его цифр S и разность A-S- QBasic(Бейсик)

INPUT a
b = a
DO
    s = s + b MOD 10
    b = b \ 10
LOOP UNTIL b = 0
PRINT "summa cifr="; s
PRINT "raznost="; a - s

Результат работы программы

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

Leave a Comment