какой фактор опасности несёт наибольшую угрозу для человека, которого нельзя допускать ( в кабинете информатики​

в объяснение

Объяснение:

неправильно использование компьютера

Var
S:real;
N:integer;
Begin
//Первый
S:=0;
For N:= 1 to 50 do
    S:=S+1/N;
WriteLn('S = ',S);

//Второй
S:=0;
N:=0;
Repeat
N:=N+1;
S:=S+1/N;
Until N = 50;
WriteLn('S = ',S);

//Третий
S:=0;
N:=0;
While N<>50 do
   Begin
   N:=N+1;
   S:=S+1/N;
   End;
WriteLn('S = ',S);

End.

Var
X:real;
Begin
X:=-3;
Repeat
WriteLn(X:4:1,'   ',((3*X*X-2)/4):6:3);
X:=X+0.2;
Until X>3;
End.

Var
A:real;
i,k:integer;
Begin
k:=0;
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then k:=k+1;
    End;
WriteLn('Кол-во отрицательных: ',k);
End.

Судя по всему, здесь в цикле складываются квадраты всех нечетных чисел от m до n включительно.

m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)

Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.

Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)

i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.