С жесткого диска компьютера№1, подключенного к локальной сети со скоростью передачи данных 100 Мбит/с на жесткий диск компьютера №2 копируется файл размером 120Мбайт, дисковый интерфейс компьютеров имеет максимальную производительность 33Мбайт/с.
1 ответ:
Читайте также
Var
a, b, c, d, x1, x2: real;
begin
Write('Введите через пробел значения a,b,c: ');
Readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d < 0 then Writeln('Нет действительных корней')
else if d = 0 then Writeln('Один корень ', -b / (2 * a))
else
begin
d := sqrt(d);
x1 := (-b - d) / (2 * a);
x2 := (-b + d) / (2 * a);
Writeln('x1=', x1, ', x2=', x2)
end
end.
Тестовое решение:
Введите через пробел значения a,b,c: 4 3.2 -2
x1=-1.2124038404636, x2=0.412403840463596
a, b, c, d, x1, x2: real;
begin
Write('Введите через пробел значения a,b,c: ');
Readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d < 0 then Writeln('Нет действительных корней')
else if d = 0 then Writeln('Один корень ', -b / (2 * a))
else
begin
d := sqrt(d);
x1 := (-b - d) / (2 * a);
x2 := (-b + d) / (2 * a);
Writeln('x1=', x1, ', x2=', x2)
end
end.
Тестовое решение:
Введите через пробел значения a,b,c: 4 3.2 -2
x1=-1.2124038404636, x2=0.412403840463596