Program adidos;
var X2,Y2,R:real;
begin
writeln('Введите X2 и Y2');
readln(X2);
readln(Y2);
R:=(X2+Y2)/2;
writeln('R=',R);
end.
Cos2x=sinx-cosx
<span>cos²x-sin²x+(cosx-sinx)=0 </span>
<span>(cosx-sinx)(cosx+sinx)+(cosx-sinx)=0 </span>
<span>(cosx-sinx)(cosx+sinx+1)=0 </span>
<span>cosx=sinx => x=π/4+πn </span>
<span>cosx+sinx=-1 </span>
<span>sin(x+π/4)=-1/√2 </span>
<span>x+π/4=(-1)^(n+1) π/4+πk </span>
<span>x=-π/4+(-1)^(n+1) π/4+πk</span>
..
......
.....................................................
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s
4. С:\учёба\математика\ГИА.
С:\учёба\математика
С:\учёба\математика\каталог1
С:\учёба\математика\каталог1\каталог2
подходит:
С:\учёба\математика\2013\Расписание
Ответ: 4
5.
1) afeget.doc
2) ufegelian.dim
3) zfegininal.disk