Составить программу,используя команды пред или постусловия,которая будет переводить числа из десятичной системы счисления в любую другую (от двоичной до десятеричной)- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT "vvedite chislo ", a
INPUT "vvedite systemu ", s
k = 1
DO WHILE a MOD s = 0
    a = a \ s
    k = k * 10
LOOP
 
DO
    b = b * 10 + a MOD s
    a = a \ s
LOOP UNTIL a = 0
PRINT b * k

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

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

Leave a Comment