Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);
if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
<span>end.</span>
ИК-порт:пульт-телевизор.
Bluetooth: Мобильный телефон
1) 1*0=0
2) 1+0=1
3) не1+0=0+0=0
4) 1*0+1=0+1=1
5) 1+0*1=1+0=1
6) не1+0*1=0+0=0
7) (1+0)*(1+0)=1*1=1
8) не(1+0)*(1+0)=0*1=0
9) не(1*0*1)=не0=1
Функция, возвращающая сумму действительных чисел a,,b,c,d равна a+b=c+d
Var x:integer;y:real;
begin
write('Введите х');
read(x);
if x>0 then y:=5*exp(2*ln(x)) - 4*х/<span>exp(3*ln(x));
</span>if x=0 then y:=5*<span>exp(2*ln(x)) - 4;
</span>if x<0 then y:=5*<span>exp(2*ln(x)) - 4*x;
</span>writeln('f(x)=',y);
end.