{* Задача360 *}

REM basic

' Пусть n натуральных чисел заданы своими цифрами в q-ичной системе счисления, хранящимся в строках матрицы K(m,n). Найти сумму этих чисел в той же системе, не вычисляя самих чисел (q <= 10)


INPUT "vvedite kolichestvo chisel M ", m
INPUT "vvedite kolichestvo cifr N ", n
Dim k(m, n), s(n + m)
INPUT "vvedite sistemu q ", q
For i = 1 To m
PRINT "vvedite  cifry "; i; "-togo chisla:"
For j = 1 To n
PRINT "cifra"; j; "=";
INPUT k(i, j)
Next
Next
PRINT "matrica "
For i = 1 To m
For j = 1 To n
PRINT k(i, j);
Next
PRINT
Next
For i = n To 1 Step -1
sum = 0
For j = 1 To m
sum = sum + k(j, i)
Next
sum = sum + per
s(i) = sum Mod q
per = (sum - s(i)) / q
Next
Do While per > 0
For i = n To 1 Step -1
s(i + 1) = s(i)
Next
n = n + 1
s(1) = per Mod q
per = (per - s(1)) / q
Loop
PRINT "rezultat"
For i = 1 To n
PRINT s(i);
Next
End