Question

Pascale abc cрочно Все на фотографии №4

Answer 1

решение проверено в среде паскаля

program pro1;
var
x,y: integer;
begin
writeln ('введи координаты точки x,y');
read (x,y);
if (x=0) and (y=0) then writeln ('0')
   else
   if (y=0) and (x<>0 ) or (x=0) and (y<>0) then  writeln ('1')
           else   writeln ('2') ;

end.

это и есть ответ