Область выше прямой → y >= 2*x
Правее оси ординат → x >= 0
Внутри окружности → y*y+x*x <= 4
(Формула окружности: x^2+y^2 = R^2
x*x +y*y = R - точка на окружности
x*x +y*y > R - точка вне окружности
x*x +y*y < R - точка внутри окружности)
Условия (y >= 2*x), (x >= 0) и (y*y+x*x <= 4) должны выполняться все вместе, поэтому между ними "and".
(Если было бы достаточно, чтоб выполнялось одно из данных условий, вместо "and" было бы "or". or не исключает, что могут выполняться все условия сразу.)
Ответ: (y >= 2*x)and(x >= 0)and(y*y+x*x <= 4).
<em><u>Программа на языке PascalABC.Net:</u></em>
var
sPred,sSucc,i,d:integer;
begin
sPred:=36;
for i:=2 to 127 do
begin
sSucc:=0;
while sPred>0 do begin
d:=sPred mod 10;
sSucc:=sSucc+d*sqr(d);
sPred:=sPred div 10
end;
sPred:=sSucc
end;
Writeln(sSucc)
end.
<em><u>Результат выполнения программы:</u></em>
153
//Pascal ABC.NET v3.1 сборка 1219
Var
y,x:real;
begin
readln(x);
if x<=0 then
begin
writeln('Выход за пределы ОДЗ');
exit;
end;
y:=power(x,3)-(sqr(x)-x+3)/sqrt(x);
writeln('y=',y);
end.
Пример ввода:
1.2
Пример вывода:
y=-1.2297018105279
Начиная от единицы, y будет удваиваться, пока у меньше 100. Т.е. у будет идти по степеням двойки, начиная с нулевой. Ближайшая меньшая к ста степень двойки - шестая, она дает значение 64 и для нее цикл выполнится последний раз, давая следующую, седьмую степень двойки, равную 128.
Ответ: 128