1) Определить, находятся ли две точки А(х1, у1) и В(х2, у2) в одном квадранте или находятся в разных квадрантах. Напечатать, в каких квадрантах они находятся.
Даже не знаю как к ней подступиться (IMG:style_emoticons/default/huh.gif)

2) Даны три резистора R1, R2, R3, соединенные параллельно, к которым подключен источник напряжения U. Не сгорят ли они, если максимальная мощность рассеивания каждого резисора составляет W ватт?
Единственное что помню из школы 1/R=(1/R1)+(1/R2)+(1/R3); W=I^2R; Рассеваемая мощность - это мощность, которую резистор может рассеять без повреждения; I=U/R.

Помогите пожалуста!
За ранее спасибо!

к первой я вот так наковырял
program GPS;
uses crt;
var a,b,x1,x2,y1,y2:integer;
Begin clrscr;
writeln ('zadaite (x,y) dl9 A');
readln (x1,y1);
if (x1>0) and (y1>0) then a:=1;
if (x1>0) and (y1<0) then a:=4;
if (x1<0) and (y1>0) then a:=2;
if (x1<0) and (y1<0) then a:=3;
writeln ('zadaite (x,y) dl9 B');
readln (x2,y2);
if (x2>0) and (y2>0) then b:=1;
if (x2>0) and (y2<0) then b:=4;
if (x2<0) and (y2>0) then b:=2;
if (x2<0) and (y2<0) then b:=3;
if a=b then writeln ('A i B v odnom kvadrante');
if a<>b then writeln ('A i B v raznix kvadrantax');
writeln ('A naxodits9 v ',a,' kvadrante');
writeln ('B naxodits9 v ',b,' kvadrante');
readln;
end.
квадранты это же вроде четверти окружности в системе (х,у) или нет?