Ну если просто вопрос-ответ
var a: integer;
b: string;
begin
write('ваш возраст - ');
readln(a);
write('твоё самое любимое увлечение - ');
readln(b);
...
и так далее спрашиваешь командой "write('вопрос')", а для ответа команда "readln(d)", где d - это переменная, перед тем как её написать туда, надо её объявить после команды "var" через запятую. Если ответом будет текст, то писать перед "string", если натуральное число, то перед "integer", если целое число, то перед "real"
(например
var a, b, c: integer;
d, e, f: string;
g, h: real;)
...
end.
Единицы измерения информации
В 1 бит можно записать один двоичный символ.
1 байт = 8 бит
В кодировке ASCII в один байт можно записать один 256 символьный код
В кодировке UNICODE один 256 символьный код занимает в памяти два байта
1 килобайт = 1024 байт
1 мегабайт = 1024 килобайт
1 гигабайт = 1024 мегабайт
1 терабайт = 1024 гигабайт
Формула Хартли 2 i = N где i- количество информации в битах, N - неопределенность
Таблица степеней двойки, которая показывает сколько информации можно закодировать с бит
i
0
1
2
3
4
5
6
7
8
9
10
N=2 i
1
2
4
8
16
32
64
128
256
512
1024
Чтобы вычислить информационный объем сообщения надо количество символов умножить на число бит, которое требуется для хранения одного символа
Var i,n:integer;
P:=real;
Begin
Read(n);
P:=1.0;
For i:=1 to n do
Begin
P:=p*2/(i+1);
End;
Write (p);
End.