Если нужна программа только под д),то вот:
Program n6;
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
<span>end.</span>
Var
x:integer;
y:double;
begin
Readln(x);
y=2*(Sin(3*x)/Cos(3*x))-(Ln(Cos(x))/(Ln(1+Sqr(x));
Writeln(y);
end;
Вроде бы так
Для записи информации о финише одного из 111 спортсменов требуется log(2)111 ≈ 7 бит; для 50 лыжников - 50*7 = 350 бит
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
19- б(но это не точно) 20- 1(это точно)