1. Сравните диапазон представления чисел с плавающей запятой в 32-разрядном формате (24 разряда для мантиссы и б разрядов для модуля порядка) с диапазоном представления чисел с фиксированной запятой в том же формате. 2. Каковы преимущества компьютерного представления чисел с плавающей запятой по сравнению с их представлением с фиксированной запятой, которое мы чаще всего используем в повседневной жизни?

program z1;

ar x,y:integer;

begin

readln(x);

readln(y);

if (x=0) and (y=0) then write(0)

else

begin

if (x>=0) and (y>=0) then write(1);

if (x<=0) and (y>=0) then write(2);

if (x<=0) and (y<=0) then write(3);    

if (x>=0) and (y<=0) then write(4)

end

end.

Объяснение:

Если точка лежит в начале координат, т.е. х = 0 и у = 0, то выводим 0, иначе выводим какой четверти принадлежит точка, начиная с 1 четверти и по порядку.

Нестрогие условия (>= и <=) и оператор write (нет перехода на новую строку) позволяют выводить два номера четверти, если точка лежит на одной из осей, а расположение условий для четвертей по порядку позволяет соблюсти условие о том, что сначала необходимо выводить меньший номер.

//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array[1..15] of integer;
 i,k1,k2:integer;
 r1,r2:real;
begin
 randomize;
 writeln('Array:');
 for i:=1 to 15 do
  begin
   ar[i]:=random(-20,20);
   write(ar[i]:4);
   if i mod 2=0 then
    begin
     inc(k1);
     r1:=r1+ar[i];
    end;
   if ar[i]>0 then
    begin
     inc(k2);
     r2:=r2+k2;
    end;
  end;
 r1:=r1/k1;
 r2:=r2/k2;
 writeln;
 if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах');
 if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива');
 if r1=r2 then writeln('Равно');
end.