Question

Определить, сколько из n заданных точек принадлежат графику функции y=|x|

Answer 1

var   N, x, y, i: integer; 
begin  
write(' N = ');
readln(N); 

for i:=1 to N do 

begin
writeln ('x='); readln(x);
writeln ('y='); readln(y);
if y=abs(x) tnen write(' принадлежит ')
else  write(' не принадлежит ');
end;

end.