Найти поразрядное сложение цифр qbasic

Категория: Basic
2012-03-14 16:50:14

Даны 2 числа. Найти поразрядное сложение цифр. Т.е. нужно сложить сотки одного числа и другого, затем десятки и единицы

code: #basic
INPUT "vvedite 1 chislo ", a
INPUT "vvedite 2 chislo ", b
DO
k = k + 1
c1 = a MOD 10
c2 = b MOD 10
s = c1 + c2
PRINT "summa "; k; "-go razryada="; s
a = a \ 10
b = b \ 10
LOOP UNTIL a = 0 AND b = 0

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

Поделиться:

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

теги: поразрядное сложение, qbasic, сложение, сумма, студенты