Program fofgogjoj;
var
a,b,c,ot:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then
ot:=ot+1;
if b<0 then
ot:=ot+1;
if c<0 then
ot:=ot+1;
Writeln('Кол-во отрицательных чисел:',ot);
<span>end.</span>
<span>Цель запроса на выборку состоит в создании результирующей таблицы, в которой отображаются только нужные по условию запроса данные из базовых таблиц. </span>
Var f,g,e:integer;
a,x,w,h:real;
begin
readln(f,g,e);
a:=((power(f-g,3)-7)/power(g+e,2))-7*((e*f-power(f,2*(g/3)))/(25-g));
writeln(a:10:8);
x:= (power(43,2)*a)-power(42,2)*(g/27.3)+((16+g)/(g-e));
writeln(x:10:8);
w:=(x/100)+(power(25,2)/x)+(a/(3*f))-((g+power(e,2))/(e+power(g,2)));
writeln(w:10:8);
h:=g-power(f,2)-((7*power(e,2)*w)/3)-(power(x,2)/(4.5*f*e));
writeln(h);
readln
end.
<span><span><span> 1
</span><span>
1
2
</span><span>
2
4
</span><span>
3
8
</span><span>
4
16
</span><span>
5
32
</span><span>
6
64
</span><span>
7
128
</span><span>
8
256
</span><span>
9
512
</span><span>
10
1024
</span></span></span>
Если имеются ввиду среды программирования, то Basic, Pascal, Python. На счет Питона не уверен.