Составить программы 1. вводтся с клавиатуры 8 чисел. подсчитать общую сумму, произведение положительных чисел и кол-во отрицательных 2. высчитать s=5+5, 5+6++n n-с клавиатуры (натуральное) 3. дано n-натуральное. вычислить y=2*4*6**2n

1)
program p1;
var a,k,n,i,s:longint;
begin
 k:=0;
 n:=1;
 s:=0;
 for i:=1 to 8 do
  begin
   read(a);
   s:=s+a;
   if a>0
    then n:=n*a
    else k:=k+1;
  end;
 writeln('Summa:',s,' Proizvedenie: ',n,' Kolichestvo: ',k);
 readln;
 readln
end.
2)
program p2;
var n,i:longint;
s:real;
begin
 write('Write n: ');readln(n);
 s:=5;
 for i:=6 to n do
  s:=s+i-0.5+i;
 writeln(s:0:1);
 readln
end.
3)
program p3;var n,i,s:longint;
begin
 write('Write n: ');readln(n);
 s:=2;
 for i:=2 to n do
  s:=s*i*2;
 writeln(s);
 readln
end.

Техника безопасности в кабинете информатики 
Общие требования безопасности 1.К работе в кабинете информатики допускаются учащиеся инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.Учащиеся должны соблюдать правила поведения в кабинете информатики. 
3.При работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока. 

Техника безопасности в кабинете информатики 30 лет назад

Техника безопасности в кабинете информатики 30 лет назад и сейчас 
1) Для работы в компьютерном классе учащиеся должны приходить в сменной обуви и аккуратном виде
2) Запрещено употреблять ненормативную лексику
3) В компьютерном классе ученики должны быть строго в белых халатах или же в белой рубашке

4) Также учащиеся находятся в кабинете только во время урока, на перемене дежурный делает влажную уборку

При несоблюдении правил учащиеся отстраняются от работы в компьютерном классе