2*16^4+0*16^3+4*16^2+7*16^1+8*16^0=132216
Приложения специального назначения предназначены для профессионального использования в различных сферах деятельности квалифицированными пользователями: - издательские системы; - бухгалтерские программы; - системы автоматизированного проектирования (САПР); - программы компьютерного моделирования; - математические пакеты; - геоинформационные системы; - медицинские экспертные системы.
Во-первых, не на программе паскаль, а на языке. Это язык программирования.
begin
var a:array [1..5,1..3] of integer;var i:integer; var j:integer;var sum:integer;var count:integer;count:=0; sum:=0;for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=random(2*20+1); for i:=1 to 5 dobegin for j:=1 to 3 do write( a[i,j]+' '); writeln;end;
for i:=1 to 5 do for j:=1 to 3 do if(((i+j) mod 2) = 0) then begin count:=count+1; sum:=sum+a[i,j]; end;writeln('Среднее арифметическое: '+ sum/count);end.
Массив заполняется рандомно
Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:
program dichotom;
uses Crt;
var a, b, eps, xn, y, psy: real;
n: integer;
function f(x:real):real;
begin
f:=sin(x)-1/x;
end;
begin
ClrScr;
a:=2;
b:=3;
eps:=0.01;
n:=0;
y:=f(a);
while y>=eps do
begin
n:=n+1;
xn:=(a+b)/2;
y:=f(xn);
if y>=eps then
if f(a)*y<0 then b:=xn else a:=xn;
end;
psy:=xn;
WriteLn(' X = ',psy:5:2);
ReadLn;
end.
Общее количество кубиков - 24+8=32
Шанс достать красный кубик равен 24/32 = 3/4. Количество информации о том, что вытащен красный кубик будет равно ㏒₂(4/3) ≈ 0.415 бит
Шанс достать черный кубик равен 8/32 = 1/4. Количество информации о
том, что вытащен черный кубик будет равно ㏒₂(4) = 2 бит