10 класс Различные подходы к измерению информации

 Тема урока Различные подходы к измерению информации

Задание 1. Изучить материалы урока. 
Задание 2. Изучить материалы урока. 
Задание 3. Изучить материалы урока. 
Задание 4. Изучить материалы урока

var
bin, rank, modulo,dec,result: BigInteger;
begin
readln(dec);
bin := 0;
rank := 1;
while dec > 0 do
begin
modulo := dec mod 2;
dec := dec div 2;
bin := bin + modulo * rank;
rank := rank * 10;
end;
result := bin;
writeln(result);
end.

Домашнее задание § 13,14