zadach108.BAS

{* Задача108 *}

REM basic

' Своими цифрами в массивах K(M) и L(N) заданы 2 целых числа в p-ичной системе счисления(p<=10)Найти в таком же виде их сумму, не вычисляя самих чисел.


CLS
INPUT "vvedite p"; p
INPUT "vvedite m,n"; m, n
If m > n Then q = m Else q = n
Dim k(q), l(q)
PRINT "vvedite 1 chislo"
For i = q - m + 1 To q
    INPUT k(i)
Next
PRINT "vvedite 2 chislo"
For i = q - n + 1 To q
    INPUT l(i)
Next
For i = q To 1 Step -1
    w = 0
    w = k(i) + l(i) + r
    If w >= p Then r = w  p: w = w Mod p Else r=0
    c$ = LTRIM$(STR$(w)) + c$
    If i = 1 And r  0 Then c$ = LTRIM$(STR$(r)) + c$
Next
PRINT c$
End