var
a, b, c, D, x1, x2: real;
begin
writeln('Введите коэффициент при х^2');
readln(a); //Вводим коэффициент при x^2
writeln('Введите коэффициент при x');
readln(b); //Вводим коэффициент при х
writeln('Введите свободный член');
readln(c); //Вводим свободный член
D:= sqr(b) - 4 * a * c;
writeln('Дискриминант уравнения равен ', D : 0 : 5); {Печатаем дискриминант и округляем его до 5 знаков после запятой}
if D > 0 then
begin
writeln('D > 0 => уравнение имеет два различных действительных корня:');
x1:= (-b - sqrt(D)) / (2 * a);
x2:= (-b + sqrt(D)) / (2 * a);
writeln('x1 = ', x1 : 0 : 5, ', x2 = ', x2 : 0 : 5); {Считаем корни уравнения и печатаем их с округлением до 5 знаков после запятой}
end;
if D = 0 then
begin
writeln('D = 0 => уравнение имеет два одинаковых действительных корня:');
writeln('x1 = x2 = ', -b / (2 * a) : 0 : 5); {Если дискриминант равен 0, печатаем два одинаковых корня с округлением до 5 знаков после запятой}
end;
if D < 0 then writeln('D < 0 => действительных корней уравнение не имеет');
end.
Так, адача похожая на предыдущую
Переведем килобайты в биты:
100 килобайт * 1024 байта в килобайте = 102400 байт.
переведем в биты:
102400 * 8 бит в байте = 819200 бита в сообщении.
Добавим избыточность. Нам по условию надо добавить 20% информации
819200*1.20 = 983040 бит надо передать.
Рассмотрим пропускную канала
10 мегабит\секунду. переведем в килобиты:
10*1024 килобит в мегабите = 10240 килобит в секунду.
переведем в биты в секунду = 10240*1024 = 10485760 бит в секунду
разделим, чтобы определить время:
983040 бит / 10485760 бит в секунду = 0.09375 секунд
ответ: 0.09375 секунд
танцы пение, танцы пение рисование, танцы пение рисование