Переведите число из десятичной системы счисления в двоичную — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
INPUT "vvedite desytichnoe chislo ", a
DO WHILE a > 0
    r = a MOD 2
    a = a \ 2
    b = b + r
    IF a <> 0 THEN b = b * 10
LOOP
PRINT b

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

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

Leave a Comment