Регистрация
maryrous
15.10.2020 03:15
Информатика
Есть ответ 👍

Составить программу перевода натурального числа из десятичной системы счисления в двоичную. vba ,без массивов.

121
126
Посмотреть ответы 2

Ответы на вопрос:

AFMaster
AFMaster
4,4(50 оценок)

function dec2bin(byval x as integer) as string

    dim t as integer, r as string

    r = "": t = x

    while t > = 2

        r = trim(str(t mod 2)) + r

        t = t \ 2

    wend

    dec2bin = trim(str(t)) + r

end function

sub test()

    msgbox dec2bin(35)

end sub

stru4kovav13
stru4kovav13
4,4(56 оценок)

1)

var a:integer;

begin

 writeln ('Введите число');

 read (a);

 if (a>9) and (a<100) then

   writeln ('True')

 else writeln ('False');

end.

2)

var a:integer;

begin

 writeln ('Введите число');

 read (a);

 if a mod 2 = 0 then

   writeln ('True')

 else writeln ('False');

end.


написать программу, которая: 1)Выводит True, если введенное пользователем число является двузначным
написать программу, которая: 1)Выводит True, если введенное пользователем число является двузначным

Популярно: Информатика