1. a :=x•x(1-умножение. a=x^2)
2. b :=x•a(2-умножение. b=x^3)
3. c :=b•b(3-умножение. c=x^6)
4. d :=c•c(4-умножение. d=x^12)
5. e :=d•d(5-умножение. e=x^15)
Количество информации на 1 символ 4,5 Кбайт / 3072 = 4,5*1024 байт/3072 = 1,5 байт = 12 бит
Количество символов в алфавите 2^12 = 4096
Если за основу всего этого брать кодировку Unicode, то...
k = 10 * 30 * 50 = 15000 символов
Один символ кодируется 16 битами.
i = 16
I = k * i
I = 15000 * 16 = 240000 бит = 30000 байт = 29.296875 Кбайт
Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.