Var a,b,c:real;
<span>begin </span>
<span>readln(a); </span>
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (b*b-4*a*c)>=0 then writeln('deistvitelnie korni est!') else writeln('deistvitelnih korney net'); </span>
<span>if (b*b-(4*a*c))>0 then begin writeln('2 kornya'); writeln('x1= ',(-b-sqrt(b*b-4*a*c))/(2*a)); writeln('x2= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>if (b*b-(4*a*c))=0 then begin writeln('1 koren'); writeln('x= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>end.</span>
2. Локальные, глобальные,региональные
1. <span>Сети отделов, сети кампусов, корпоративные сети</span>
160:2=80 (остаток 0)
80:2=40 (остаток 0)
40:2=20 (остаток 0)
20:2=10 (остаток 0)
10:2=5 (остаток 0)
5:2=2 (остаток 1)
2:2=0 (остаток 0)
Я что то не понемаю сколько игроков так незнаю
по правде