// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function f(x:real):=3+x*(4+x*(5+x*6));
begin
var a:=-1.0;
var b:=0.0;
var eps:=1e-6;
var fa:=f(a);
var x,fx:real;
if abs(fa)<=eps then Writeln('x=',a,',y=',fa)
else begin
var fb:=f(b);
if abs(fb)<=eps then Writeln('x=',b,',y=',fb)
else
if fa*fb>0 then Writeln('На указанном интервале корней нет')
else
repeat
x:=(a + b)/2;
fx:=f(x);
if abs(fx)<=eps then Writeln('x=', x, ', y=', fx)
else
if fa*fx>0 then a:=x else b:=x;
until abs(fx)<=eps
end
end.
<u><em>Результат выполнения программы:</em></u>
x=-0.790308952331543, y=-6.74849237825015E-07
100Мбит это 0,0125Гбайт.
В одно часе 3600 секунд.
Умножаем кол-во секунд на кол-во Гбайт.
0,0125*3600=45
Ответ: 45
Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var F := ReadArrInteger(ReadInteger('T='));
var ae := F.Where(p -> p.IsEven).Average;
var ao := F.Where(p -> p.IsOdd).Average;
var m := Min(ae, ao);
var E := F.Where(p -> p > m).ToArray;
E.Println
end.
Ответ:
с лева клацаеш на файл там открыть и создать слева в вкладке вставка печатать
Объяснение:
Старый друг лучше новых двух