9. переменной k присвоить номер четверти плоскости, в которой находится точка с координатами (x, y)(xy не равно 0). вывести на экран номер четверти.

Program glghn; var k,x,y: integer; begin readln(x,y); if (x< 0) and (y> 0) then writeln(1); if (x> 0) and (y> 0) then writeln(2); if (x< 0) and (y< 0) then writeln(3); if (x> 0) and (y< 0) then writeln(4); end.

самотестирование компьютера

                |

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

       

 

при включении комп. ос загружается в оп раньше остальных программ

 

 

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.