Какое нарушение правил работы за компьютером ты видишь на рисунке? Дай два совета человеку, сидящему за компьютером. НарушениеСовет 1 Совет 2​

Объяснение:

я бы не трогай я бы не пил воду не чистил бы свою не лезь бываю рюкзак и так далее

В первом файле фрагмент экрана, показывающий работу программы. Во втором - рабочая книга MS Excel.
Небольшая процедура на VBA, текст которой приведен ниже, выполняет всю необходимую работу.Для того, чтобы работать с данной реализацией, надо в Экселе разрешить работу с макросами и разрешить доверять проектам без цифровой подписи (это стандартное условие для выполнения средств автоматизации в MS Office).

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Integer, s As Double
    Dim x As Double, n As Integer
    x = Cells(2, 1).Value
    n = Cells(2, 2).Value
    s = 0
    For i = 1 To n
        s = s + 1 / (Sin(n * x) + Cos(n * x))
    Next i
    Cells(3, 2).Value = s
End Sub

var
  l,a,b:integer;
  s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
   begin
   a:=pos('(',s);
   b:=pos(')',s);
   if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
   if (a=0) and (b>0) then writeln('Скобка не открыта');
   if (a>0) and (b=0) then writeln('Скобка не закрыта');
   if (a=0) and (b=0) then writeln('Текста в скобках нет');
  end;
end.

var
  n,i,k:integer;
  s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
  i:=pos(' ',t);
  delete(t,1,i);
  until i=0;
k:=length(t);
for i:=1 to k do
  if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.