7.0




6.3. - 2


Program Z_2;

Var

a, x, S: real;

n: integer;

Begin

writeln( x);

read (x);

S:=0;

for n := 1 to 8 do

begin

a := sin(2 * n * x);

if abs(a) > 0.3 then S := S + a;

end;

writeln(S=, S:6:2);

End.

3. .

:

.

:

,
- .

頠 :

.

,
.
.

Program Z_3;

Var

x, y, P, PO: real;

Begin

PO := 1;

x := 0.1;

while x<=10 do

begin

y := cos(x);

if y<0 then PO := PO * y;

x := x + 0.1;

end;

P := abs(PO);

writeln(P=, P:6:2);

End.