Скласти програму для обчислення такого арифметичного виразу (дані вводити з клавіатури) : y = |cos(x2 – 3, 8)|/4, 5 – 9, 7sin(x – 3, 1)

1) Да́тчик, сенсор — конструктивно обособленное устройство, содержащее один или несколько первичных измерительных преобразователей. Датчик освещенности служит для определения уровня внешней освещенности.

2) Это глаза и мозг.

3) Я не знаю правда.

4) Алгоритм движения робота вдоль черной линии с одним датчиком. В конструкции робота впереди по центру устанавливается датчик освещенности. Робот будет двигаться следующим образом. Если он датчиком заезжает на черную линию, то сворачивает с нее одним мотором, если он датчиком не видит линию, то он сворачивает другим мотором на линию. Робот будет двигаться зигзагами вдоль черной линии.

5) Алгоритм движения по черной линии для робота с двумя датчиками следующий. Если робот заехал левым датчиком на черную линию, то робот сворачивает (съезжает с линии) налево. Если робот заехал правым датчиком на черную линию, то поворачивает направо

Объяснение:

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково