В одном байте 8 бит. В одном килобайте - 1024 байт. В одном мегабайте - 1024 килобайт
1,7 Кб=1,7*1024*8= 13926,4 бит
3,3 Мб=3,3*1024*1024*8= 27 682 406,4 бит
7,7 байт=7,7*8=61,6 бит
Вот и все
Недостатки:
• Бизнес-логика функциональной обработки и представление данных могут быть одинаковыми для нескольких клиентских приложений, и это увеличит совокупные потребности в ресурсах при исполнении вследствие повторения части кода программ и запросов;
<span>• Низкий уровень управления непротиворечивостью информации, так как бизнес-правила функциональной обработки, сосредоточенные на клиентской части, могут быть противоречивыми.</span>
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
Выключи компьютер потм включи
Не забудьте задать исходные данные (как переменные) перед запуском программы.
program mediana;
var
x1,y1,z1,x2,y2,z2,x3,y3,z3: real; (* исходные данные *)
x_aa1,y_aa1,z_aa1,length_aa1: real; (* координаты AA1 *)
begin
(* тут нужно будет задать исходные данные *)
x_aa1 := (x2+x3)/2;
y_aa1 := (y2+y3)/2;
z_aa1 := (z2+z3)/2;
length_aa1 := sqrt(sqr(x1-x_aa1)+sqr(y1-y_aa1)+sqr(z1-z_aa1));
writeln('Длина AA1: ', length_aa1);
end.