Напечатать таблицу сложения одноразрядных чисел в p-ичной системе счисления,p<=10- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
INPUT "vvedite systemu P ", p
FOR i = 0 TO p - 1
    FOR j = 0 TO p - 1
        r = i + j
        IF r > p THEN r = 10 + r - p
        PRINT i; "+"; j; "="; r;
    NEXT
    PRINT
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment