7.0




6.3.


:

  • ;
  • ;
  • ;
  • .
  • .

    1. .

    :

    .

    .

    :

    ,
    .

    , 1 , . () , , L. L:= L + 1;. . L:= 0;.

    Program Z_1;

    Var

    a: real;

    n, L: integer;

    Begin

    L := 0;

    for n := 1 to 50 do

    begin

    a := cos(2 * n - 1);

    if a>0 then L := L + 1;

    end;

    writeln(L=, L);

    End.

    2. .

    :

    ,

    - .

    , 0.3.

    :

    ,
    .

    ,
    ,
    .
    .
    .