на паскале надо
Var r,x,y: real; begin readln(r); readln(x,y); if ((x*x+y*y<=r*r)and(x<=0)and(y<=0))or((x>=0)and(y>=0)and(x*x+y*y<=r*r)and(y>sqr(x-1)) then writeln('yes') else('no') end/
проверьте наличие (-открывающихся и )-закрывающихся скобок. их должно быть равное количество
исправил, теперь пишет что "ожидалось имя процедуры или функции" then writeln('yes') else('no')
после елзе случаем не надо write писать?
да, спасибо, надо!
да за что мне спасибо, это вам спасибо огромное)
и перед then 3 закрывающихся
да уже доделал)
спасибо еще раз большое
а могли бы вы посмотреть еще 1 задачку?
единственное что, у меня не осталось баллов тут, и надо как то по другому вам ее перекинуть