Регистрация
Карина2203
21.01.2023 05:08
Информатика
Есть ответ 👍

Составить програму перевода из 10 в 2 число 100.

172
299
Посмотреть ответы 2

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

BarsegyanDiana70
BarsegyanDiana70
4,6(17 оценок)
Var   b: array[1..100001] of integer; var a,c,i: integer; begin c: =0; write('десятичное число: '); readln(a); while a< > 0 do begin if a mod 2 = 0 then begin a: =a div 2; c: =c+1; b[c]: =0; end; if a mod 2 < > 0 then begin a: =a div 2; c: =c+1; b[c]: =1; end; end; write('двоичное число: '); for i: =c downto 1 do write(b[i]) end.
viakobchuk
viakobchuk
4,4(54 оценок)
Чтобы дисциплина в компьютере и строй - все хорошо работало.

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