Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
Информатика информатика информатика
А:=-6;
В:=-5;
А:=-6+2*(-5)=-16;
В:=-16;
Ответ: -16-16
Объяснение:
во вложениях...
^ – у меня знак не ставится, но выполняет свои действия, у себя его ставьте!