Тест решить, могут на второй год ! 1. даны координаты точки. выяснить лежит ли точка во второй координатной четверти. 2. дано двухзначное число n. определить больше-ли числа 9 сумма его цифр. заранее за правильные ответы!

// pascalabc.net 3.2, сборка 1514 от 11.08.2017 // внимание! если программа не работает, обновите версию! begin   var (x,y): =readreal2('введитие координаты точки');   if (x< 0) and (y> 0) then writeln('точка лежит во ii четверти')   else writeln('точка не лежит во ii четверти') end. пример введитие координаты точки -4.6 7 точка лежит во ii четверти begin   var n: =readinteger('введите двухзначное число');   if n div 10+n mod 10> 9 then writeln('сумма цифр больше девяти')   else writeln('сумма цифр не больше девяти') end. примеры введите двухзначное число 47 сумма цифр больше девяти введите двухзначное число 81 сумма цифр не больше девяти

Первая программа: program p; var x, y: integer; begin   writeln('введите x > > ');   read(x);   writeln('введите y > > ');   read(y);   if (x< 0) and (y> 0) then       begin           writeln('точка принадлежит второй координатной четверти');       end     else       begin           writeln('точка не принадлежит второй координатной четверти');       end end. вторая: program p2; var n, i, sum, j: integer; arr: array[1..10] of integer; begin   writeln('введите число n');   read(n);   while n> 0 do       begin           inc(i);           arr[i]: =n mod 10;           n: =n div 10;       end;   for j: =1 to i do       begin           sum+=arr[j];           //write(arr[j]);       end;   if sum> 9 then3       begin           writeln('сумма больше 9');       end   else       begin           writeln('сумма меньше 9');       end end.

Нужно перевести все в биты и разделить на скорость загрузки32*1024*1024*8/2^25=8 с