1 байт =8 бит
1 Килобайт - 1024 байта
1 Мега байт -1024 Килобайта
1 Гигабайт - 1024 Мегабайта
1 Терабайт - 1024 Гигабайта
1 Пета байт = 1024 Терабайта
1 Этабайт - 1024 Петабайта
<span> - так если мне память не изменяет
:)</span>
Var
a,b,c : integer;
d,x1,x2,s : real;
begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
<span> end.</span>
Панель управления -> Центр управления сетями и общим доступом -> Свойства адаптера -> ПКМ по "Подключение по локальной сети" -> "Включить".