0,5 кбайт = 512 байт = 4096 бит
больше на 3896 бит
=ЕСЛИ(S30=48;5;ЕСЛИ(И(40<S30;S30<48);4;ЕСЛИ(И(34<S30;S30<40);3;2)))
Надо было написать бы еще среду программирования. Пишу на Qbasic
//Pascal
var
A: array [1 .. 5] of integer;
k, buf, i, j: integer;
ArithMean: real;
begin
for i := 1 to 5 do
begin
write('A[', i, '] = '); readln(A[i]);
ArithMean := ArithMean + A[i];
end;
for i := 1 to 5 - 1 do
begin
k := i;
for j := i + 1 to 5 do
if A[j] < A[k] then k := j;
buf := A[i];
A[i] := A[k];
A[k] := buf;
end;
for i := 1 to 5 do write(A[i]:4);
writeln;
writeln('Среднее арифметическое = ', (ArithMean / 5):0:2);
end.