Program chik;
var x,y:real;
begin
readln(x,y);
if((y<=2)and(x>=-3)and(x<=2)and(y>=0))or
((y<=0)and(x>=-1)and(x<=1)and(y>=-1)and(x*x+y*y<=1))then
writeln('ПРИНАДЛЕЖИТ')else writeln('Не принадлежит');
<span>end.</span>
Вот сам код в комментарии, также прикрепил в виде файла:
Ответ будет 5, так как массив начинается с нулевого элемента, то третьим будет 1, а первым будет 5
A[A[3]] = A[1] = 5
X=0.86547
y=0.6483
При помощи: Сервис/подбор параметра/
на 10 строк вверх и вниз
Изменяя шаг h, можно просмотреть область вокруг корня.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы отображены в строке формул.
Var i,n,s:integer;
begin
readln(n);
for i:=1 to n do
s:=s+(2*i-1);
writeln('S=',s);
<span>end.</span>