Я могу сказать только виды информации: графическая,звуковая,текстовая,числовая
1) Переводим целую часть числа в двоичную СС:
29:2=14(1)
14:2=7(0)
7:2=3(1)
3:2=1(1)
Записываем цифры в скобках в одно число снизу вверх:
11101
Переводим дробную часть:
Умножаем дробную часть на основание системы счисления:
0,62*2=1,24(1)
В скобки записываем целую часть результата произведения, а дробную снова умножаем на основание системы счисления:
0,24*2=0,48(0)
Повторям эти действия, пока не достигнем нужной точности:
0,48*2=0,96(0)
0,96*2=1,92(1)
0,92*2=1,84(1)
0,84*2=1,68(1)
0,68*2=1,36(1)
0,36*2=0,72(0)
Записываем цифры в скобках сверху вниз:
0,10011110
В итоге:
11101,10011110 - это данное число в двоичной СС
2) аналогично первому
29:8=3(5)
35 - целая часть полученного числа
0,62*8=4,96(4)
0,96*8=7,68(7)
0,68*8=5,44(5)
0,475 - дробная часть полученного числа
В итоге:
35,475 - это данное число в восьмеричной СС
V-IV тысячелетие до н.э. Первые следы иероглифического письма в Древнем Египте
II-I тысячелетие до н.э. Появление алфавитного письма в Финикии
II век н.э. Изобретение технологии изготовления бумаги в Китае
Середина XV в. Начало книгопечатания в Европе
Середина XVI в. Начало книгопечатания в России
1839 г. Изобретение фотографии
70-е гг. XIX в. Первая запись звука с помощью фонографа
1895 г. Демонстрация первого кинофильма
20-е гг. XX в. Изобретение магнитофона
60-е гг. XX в. Появление первых жестких дисков для компьютеров
<span>80-е гг. XX в. Появление первых лазерных дисков </span>
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->t.Between(10,99)).ToArray;
if a.Length=0 then Writeln('NO')
else Writeln(a.Average)
end.