Вот, посчитал, задание не очень сложное, нужно просто понять где на что умножать/делить.
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.
Ответ:
Объяснение:
1. read(a,b,c); вместо read('a,b,c');
2. Добавить скобку после 4ас f: =(-b+sqrt(sqr(b)+4*a*c))/(2*a)+abs(c);
<span>Через поле и лесок подаётся голосок. <span>
Он
бежит по проводам -
Скажешь здесь, а слышно там. (телефон)
</span></span>
Под крышей - четыре ножки,
На крыше - суп да ложки. (Стол)<span>
</span>Хоть по объёму и мала,
Информацию хранит она.
Знаем все устройство это
<span>Называется……
</span>
Адрес, имя, телефоны, все запишет, все запомнит!
<span>И девчонке и мальчишке, всем поможет эта книжка!
</span>
Скромный серый колобок, Длинный тонкий проводок, Ну а на коробке - Две или три кнопки. В зоопарке есть зайчишка, <span>У компьютера есть ...
</span>
Стоит весёлый, светлый дом.
Ребят проворных много в нём.
Там пишут и считают,
<span>Рисуют и читают.</span>