Надеюсь я все учел, достаточно объемная и сложная задача...
Var o,l:integer;
a,b,max2:real;
procedure rip (var x,t:real; i:integer);
var q,min,max:integer;
a1:array [1..10] of integer;
begin
writeln ('Введите через пробел оценки за короткую программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
t:=a1[q]+t;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
t:=(t-max-min)/8;
writeln ('Введите через пробел оценки за произвольную программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
x:=a1[q]+x;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
x:=(x-max-min)/8;
end;
begin
For o:=1 to 6 do begin
rip (a,b,o);
If (a+b)>max2 then begin max2:=a+b; l:=o; end;
end;
writeln (l);
end.
Если 1 символ = 8 бит = 1юбайту, то:
2,7 Кбайт =2,7 *1024 байта= 2764 символа
если 1 символ =16 битам= 2 байтам, то:
2,7*1024 :2 =1382 символа
Сколько единиц в двоичном представлении числа 3710 =3 единицы
<span>Выполнить вычитание в двоичной системе счисления: 1111012 - 1112 =110110</span>
<span>Перевести двоичное число 1001112 в десятичную систему счисления =39</span>
<span>Выполнить сложение в восьмеричной системе счисления: 1248+658 =211</span>
<span>Выполнить сложение в двоичной системе счисления: 11101112+1112 =1111110</span>
<span>Выполнить вычитание в восьмеричной системе счисления: 1128 - 678 =23</span>
<span>Перевести число 145 из десятичной системы счисления в 8 ричную систему </span>
<span>счисления =221</span>
a) F=A∧ ¬B∧C
b) F=¬A∨B∨C
c) F=X∨(¬Y∧(X∧Y))=X∨¬Y∧X∧Y=X∨¬Y∧Y=X
d) F=(X^X)v(X^¬Z)v(Z^X)v(Z^¬Z)^¬X=X^(X^¬Z)v(Z^X)^¬X=X^¬X^(X^¬Z)v(Z^X)=(X^¬Z)v(Z^X)
