program
zadacha;
var
a,b,x,y,f:
real;
begin
writeln('vvedite
a,b,x');
readln(a,b,x);
y:=(sqr(a+b)*x)
/ (sqrt(sqr(a)+sqr(b)));
<span>f:=sqr(cos(y))
+ ((a-b)-a*x) / (y*b);</span>
writeln('y
=',y:6:2);
writeln('f(y)
=',f:6:2);
end.
var a:array of integer;
N,i,k:integer;
function f(a:integer):Boolean;
begin
if (a mod 2=0) then f:=True else
f:=False;
end;
BEGIN
k:=0;
writeln('Введите количество элементов массива');
readln(N);
SetLength(A,N);
writeln('Введите массив');
for i:=0 to N-1 do begin
read(a[i]);
if (f(a[i])=True) then k:=k+1;
end;
writeln('Количество чётных элементов массива = ',k);
end.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.
1) Труп
2) Конопля
3) Маки
4) Гладиолусы
5) Пионы
6) Толчок рядом с пионами
Шанс выпадения 1 равен 1/6. Всего 6 вариантов, значит i=3 битам. Ответ: 3 бита.