Составить программу на pascal для решения : по трем наборам коэффициентов вычислить корни трех квадратных уравнений. квадратное уравнение: ax2+bx+c=0 d= b2-4ac, для проверки введите кофф-ты 1-ого уравнения: 1 -1 -12 x1=4 x2=-3 введите кофф-ты 2-ого уравнения: 2 -6 -20 x1=5 x2=-2 введите кофф-ты 3-ого уравнения: 3 15 -42 x1=2 x2=-7

Пишу ответ на С++ и QBasic, если у Вас другой язык, то просто измените синтаксис:
1) max=-10000;
number=0;
for (int i=0;i<3;i++)
{
if A[i]>max;
{
max=a[i];
number = i;
}
}
2)
DECLARE FUNCTION f! (x!)  
CLS INPUT "[A; B] = "; A, B
INPUT "SHAG H = "; n  
FOR x = A TO B STEP n    
n = n + 1    
IF n MOD 20 = 0 THEN      
PRINT "PRESS ENTER"      
DO: LOOP UNTIL INKEY$ <> ""      
CLS    
ELSE      
IF ABS(x) < 1 THEN        
 PRINT USING "X = ###.###"; x;          
PRINT "   Y =    ---"      
ELSE          
PRINT USING "X = ###.###   Y = ###.###"; x; f(x)      
END IF    
END IF
NEXT
END  
FUNCTION f (x)  
 IF ABS(x) <= 2 THEN    
  IF ABS(x) >= 1 THEN f = SQR(x ^ 2 - 1)  
 ELSE    
   f = x + 5    END IF
END FUNCTION

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

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

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

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