Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.
Var x,y,S:real;
k:integer;
Begin
x:=-4;
k:=0;
While x<7 do
Begin
if (x < -3) then y:=2*x-5*Sin(x)
else if (-3 <= x)and(x <= 5) then y:=1-Sin(x)
else y:=ln(4*x+Sin(x));
if (y > 0) then
Begin
S:=S+y;
k:=k+1
End;
WriteLn('y(',x:0:1,') = ',y:0:3);
x:=x+0.2
End;
WriteLn('Sr = ',S/k);
ReadLn
End.
Если каждая цифра делится на два, то все цифры числа четные: например 2468
А) 30<span>0.5
б) </span>42322.125<span>
в) </span>10110110<span>0.1</span>
Если симов занимает 1 байт, то получается 6 файлов