Developing.ru

Напечатать таблицу сложения одноразрядных чисел в p-ичной системе
счисления, p ≤16.

вроде бы легкая но я не могу сообразить, помогите пожалуйста

Что именно вызывает затруднения? Сложить два числа в p-ичной системе вы сами можете?

если бы мог то не писал бы сюда

В p-ичной системе цифры - 0, 1, ..., 9, A, B, C, ... вплоть до Z, которая используется только в 36-ричной системе и означает число 35. Чаще всего используется 16ричная система с цифрами 0-9, A-F.
Перевод p-ичной цифры:
if (p<10)
result:=p
else
result:=10+ord(p)-ord('A');
Вообще покопайтесь в недрах раздела "алгоритмы", там эти задачи еще при царе Горохе решали

или помогите перевести с basic
CLS
u$ = "0123456789ABCDEF"
DO
INPUT "vvedite p"; p
LOOP UNTIL p >= 2 AND p <= 16
FOR j = 1 TO p
IF j = 1 THEN PRINT SPACE$(2); CHR$(179);
PRINT MID$(u$, j, 1); SPACE$(3);
NEXT
PRINT: PRINT STRING$(p * 4, 196)
FOR i = 1 TO p
PRINT MID$(u$, i, 1); SPACE$(1); CHR$(179);
FOR j = 1 TO p
b = i + j - 2: c$ = ""
DO
c$ = MID$(u$, (b MOD p) + 1, 1) + c$: b = b \ p
LOOP UNTIL b = 0
PRINT c$; SPACE$(4 - LEN(c$));
NEXT: PRINT: NEXT