Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.
Алгоритм линейный, протокол работы такой:
Введите значение переменных a и b:
24
-85
c= -61
d= -122
d= -119
d= -118
Значение выражения равно -118
.к. каждый символ может иметь 64 значения, то есть <span> , то на каждый символ выделяется 6 бит(от 0 до 63, всего 64 варианта).Всего символов - 100. Значит всего нужно 6*100=600бит=75байт</span>
15489431235 ацйуйац5й4йц96а48йц65