|
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
|