Даны действительные числа x, y. если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5; 2,0], то оба значения уменьшить в 10 раз ; в остальных случаях x и y остаются без изменения . , завтра зачет.

Var   x, y:   real; begin   readln(x, y);   if ((x < 0) and (y < 0)) then     begin     x : = abs(x);     y : = abs(y);     end   else   if < 0) and (y > = 0)) or ((x > = 0) and (y < then     begin     x += 0.5;     y += 0.5;     end   else   if .5 < = x) and (x < = 2)) or ((0.5 < = y) and (y < = then     begin     x /= 10;     y /= 10;     end;   writeln(x, ' ', y); end.

Var m: array[1..15] of real;   i: integer;   n: real;   begin  randomize;   for i: =1 to 15 do  begin  m : =random(20)-20;   if( m< 0) then  begin  m: =sqr(m);   end;

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.