I=i*K
K=16*38*48=29184
(2 байта =16 бит)
I = 16* 29184 = 466944 бит = 58368 байт = 57 КБайт
Var
i:integer;
a,c:real;
begin
c:=0;
Writeln('Введите четыре произвольных числа');
for i:=1 to 4 do
begin
Read(a); c:=c+Int(a)
end;
c:=c/4;
Writeln('Среднее арифметическое равно ',c)
end.
<em><u>Тестовое решение:</u></em>
Введите четыре произвольных числа
4.7 5.03 4.12 5
Среднее арифметическое равно 4.5
8 = 2^3
v = 600*350*3 =(полученное число) делишь на 8 (это будет в байтах), а потом делишь на 1024( это кбайты) = 77 Кбайт
В представленном виде мантисса 2.213, порядок 4
В нормализованном мантисса 0.2213, порядок 5
Естественно, это все в десятичной системе счисления, потому что иной у Вас не указано.