Напишите программу определить полярные координаты точки, заданные декартовыми координатами (x, y) по формулам f=arctg(x/y), r=√x^2+y^2. при вычислении угла @ необходимо учесть, что значение х может быть равно нулю, а угол может находиться в различных четвертях.

Procedure polar(x, y: real; var r, f: real); begin   r : = sqrt(sqr(x) + sqr(y));   if x = 0 then       if y = 0 then f : = 0       else       if y > 0 then f : = pi / 2 else f : = -pi / 2   else begin       f : = arctan(y / x);       if x < 0 then           if y > = 0 then f : = f + pi else f : = f - pi   end end; { тестовое решение } var   r, fi: real; begin   polar(1, 1, r, fi);   writeln('(+1; +1) -> (', r, '; ', fi, ')');   polar(1, -1, r, fi);   writeln('(+1; -1) -> (', r, '; ', fi, ')');   polar(-1, 1, r, fi);   writeln('(-1; +1) -> (', r, '; ', fi, ')');   polar(-1, -1, r, fi);   writeln('(-1; -1) -> (', r, '; ', fi, ')');   polar(0, 1, r, fi);   writeln('(0; +1)  -> (', r, '; ', fi, ')');   polar(0, -1, r, fi);   writeln('(0; -1)  -> (', r, '; ', fi, ')');   polar(0, 0, r, fi);   writeln('(0; 0)    -> (', r, '; ', fi, ')'); end. тестовое решение: (+1; +1) -> (1.4142135623731; 0.785398163397448) (+1; -1) -> (1.4142135623731; -0.785398163397448) (-1; +1) -> (1.4142135623731; 2.35619449019234) (-1; -1) -> (1.4142135623731; -2.35619449019234) (0; +1)  -> (1; 1.5707963267949) (0; -1)  -> (1; -1.5707963267949) (0; 0)    -> (0; 0)

Var   s, tmp: real;   n, i: integer; begin           write('введите n: ');           readln(n);           for i : = 1 to n do           begin               tmp : = 1 / ((2 * i + 1) * 3);               s : = s + tmp;           end;           writeln(s: 8: 10);           readln; end.

Условия: 1. алексеев и воробьев будут или не будут в призерах соревнований одновременно. 2. воробьев будет в тройке победителей, то и алексеев тоже. 3. алексеев не будет среди призеров или среди победителей будут бедняков и воробьев. сразу заменим фамилии в буквы: алексеева = а беднякова = б воробьева = в запишим утверждение пользуясь языком логических выражений: ! - логическое отрицание ∪ - дизьюнкция, логическое или ∩ - коньюнкция, логическое и запись первой буквы фамилии учасника будем считать за утверждение, что он входит в тройку победителей, то есть истина отрицанием же будет утверждение, что он не входит в тройку победителей. 1.алексеев и воробьев будут в призерах соревнований одновременно на языке логических выражений выглядит вот так: (а ∩ в) алексеев и воробьев не будут в призерах соревнований одновременно: ! (а ∩ в) и первое и второе выражение входит в первое условие, запишим его едино: (а ∩ в) ∪ ! (а ∩ в) 2.второе условие можем изобразить как: в ∩ а 3.третье условие получается из двух.алексеев не будет среди призеров: ! а или среди победителей будут бедняков и воробьев: б ∩ в теперь снова объеденим в одно целое: ! а ∪ (б ∩ в) теперь запишим все утверждения целеком рядом: 1. (а ∩ в) ∪ ! (а ∩ в) 2. в ∩ а 3. а ∪ (б ∩ в) вопрос:   после соревнований оказалось, что два из предположений истинно, а одно - ложно. кто из спортсменов был в призерах? наглядно видно, что в последнем (третьем) утверждении два должны быть именны, а одно ложно. ответ: бедняков и воробьев были в призерах. за отметку "лучший ответ" и нажатую кнопочку "" - тут и у меня в профиле.