Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Чистомила
04.10.2022, 13:45
Информатика
Дан фрагмент программы:
While x>0 do begin
c:=x mod 2;
x:=x div 2;
Write (c) ;
end;
Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
killlmee23321
var x, c, p:integer;
begin
p:=1;
readln (x) ;
while x>0 do begin
c:=c + x mod 2*p;
x:=x div 2;
p:=p*10
end;
write (c)
end.