Информатика- это знания получаемые вами в школе ; сведения которые вы черпаете из книг , телепередач ; новости которые вы слушите от других людей , радио
<em />
Нужно знать как задаётся эта заштрихованная область.
Например для окружности нужно что бы x^2+y^2<R где R радиус, x,y координаты точки.
В общем случае нужно что бы выполнялось неравенство при поставление в него координат заданных пользователем.
А=128-12=116. Здесь просто заметим, что цикл прокручивается 4 раза.
Б=4. Здесь заметим, что все зависит от последнего значения j
a=(B1) =EXP(-B2)
b=(B2) 2,15
c=(B3) =КОРЕНЬ(1+(LN(B1)^2+LN(B2))^2)
y=(B4) =SIN((0,5*B3)^2)^3
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.