Program sum;
var <span>
x: array[1..30] of real;</span>
<span>i, k: integer;
s:real;
begin
k:=0;
s:=0;
for i:=1 to 30 do
begin
x[i]:=(1+i)/(</span>Exp(Ln<span>(i) </span>/ 3))<span>
if x[i]>0
then
begin
s:=s+x[i];
k:=k+1;
end;
end;
writeln('summa=',s);
writeln('kolvo elementov=', k);
readkey;
end.</span>
Поисковые системы общего назначения позволяют находить документы во всемирной паутине по ключевым словам, которые вводятся в поле поиска/или с помощью иерархической системы каталогов.
Ответ:
На фото мало что видно, но я попытаюсь помочь.
Как математически это представить?
1)
Точка должна быть ниже линии у=(непонятка1) горизонтальная линия
2)
Точка должна быть левее линии х=(непонятка2) вертикальная линия
3)
Точка должна быть выше линии у=(непонятка3 зависящая от х) накладная линия
По программистски условие выглядит так:
If у<(непонятка1) and x<(непонятка2) and y>(непонятка3 зависящая от х) then write('принадлежит');
Else write(' не принадлежит');
Итоговая прога выглядит примерно так:
Var x,y: real;
Begin
Read(x,y);
If у<(8) and x<(8) and y>(x-8) then write('принадлежит');
Else write(' не принадлежит');
End.
Вот и всё. Я не вижу чему равны непонятки, поэтому замени 8 на соответствующие величины