Var x,y,z:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
z:=(sin(x)+cos(y))/(cos(x)-sin(y))*(sin(x*y)/cos(x*y));
writeln('z = ',z);
end.
Пример:
x = 2
y = 3
z = -0.0421391746986865
Паскаль не может все это делать сразу
радиус вводиться вручную
1800 байт * 8 = 14 400 бит
14 400 бит = 14 400 бит
ответ: за одну секунду
Делим на 2
<span>Записываем в двоичную снизу вверх </span>
1)8-0
4-0
2-0
1-1
8 в десятичной = 1000 в двоичной
2)16-0
8-0
4-0
2-0
1-1
16 в десятичной = 10000 в двоичной
3)35-1 (остаток после деления)
17-1
8-0
4-0
2-0
1-1
35 в десятичной = 100011 (в двоичной)
4)156-0
78-0
39-1
19-1
9-1
4-0
2-0
1-1
156 в десятичной = 10011100 в двоичной
5)45-1
22-0
11-1
5-1
2-0
1-1
45 в десятичной = 101101 в двоичной
<span>var
i,summ: real;
begin
for i := 2 to 50 do begin
summ :=summ+s</span><span>qrt(i)</span><span>;
i:=i+1;
end;
writeln(summ)
end.
//как то так но ошибка вылетает я хз </span>