Kазак
1. Во втором квадранте координатной плоскости x<0, y>0 var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (x<0) and (y>0);end.2. Во первом или третьем квадранте - и x и y имеют один знак, либо одновременно положительны, либо одновременно отрицательны. var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (x*y>0);end. 3. Точка лежит на координатной оси Ох - только в случае когда координата y равна нулю. var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (y=0);end. 4. Число а состоит не более чем из трёх цифр Это если число больше минус 1000 и меньше 1000 var flag: boolean;a:integer;begin a:=1;flag := (a>-1000) and (a<1000);end. 5. число а кратно трём (проевряем остаток от деления на 3 на равенство нулю) var flag: boolean;a:integer;begin a:=1;flag := ((a mod 3)=0);end. 6. не понял вопроса.
Answers & Comments
Verified answer
Паскаль:1) (x<0) and (y>0)
2) x*y>0
3) y=0
4) abs(a)<1000
5) a mod 3 = 0
Во втором квадранте координатной плоскости x<0, y>0
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (x<0) and (y>0);end.2.
Во первом или третьем квадранте - и x и y имеют один знак, либо одновременно положительны, либо одновременно отрицательны.
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (x*y>0);end.
3.
Точка лежит на координатной оси Ох - только в случае когда координата y равна нулю.
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (y=0);end.
4.
Число а состоит не более чем из трёх цифр
Это если число больше минус 1000 и меньше 1000
var flag: boolean;a:integer;begin a:=1;flag := (a>-1000) and (a<1000);end.
5.
число а кратно трём (проевряем остаток от деления на 3 на равенство нулю)
var flag: boolean;a:integer;begin a:=1;flag := ((a mod 3)=0);end.
6.
не понял вопроса.