В одном байте восемь бит- следовательно в 128 Кбайтах будет 128*8=1024 бита
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Horner(Self:sequence of real;x:real):real; extensionmethod;
begin
Result:=Self.Aggregate(0.0,(p,q)->p*x+q) // коэфф. по убыванию степеней!
end;
begin
var x:=ReadReal('Укажите значение х:');
Writeln('Введите коэффициенты в порядке возрастания степеней: ');
Writeln('Результат: ',ReadArrReal(11).Reverse.Horner(x));
end.
Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
Begin
P:=1;
For j:= 1 to 9 do
P:=P*sqr(i+j);
E:=E+P
End;
WriteLn('S = ',E);
End.
Дроздов Петр
Борисов Влад
Козин Леонид
Истомин Олег
Степанов Николай