<em>Формула некорректна, поскольку при i=1 и k=1 знаменатель дроби обращается в ноль. Программа будет всегда возвращать "бесконечность".</em>
var
i,k,m,n,ik:integer;
si,sk,facti,factk:double;
begin
Write('Введите через пробел значения m и n: ');
Read(m,n);
sk:=0; factk:=1;
for k:=1 to m do
begin
si:=0; facti:=1; ik:=1; factk:=factk*k;
for i:=1 to n do
begin
ik:=-ik; facti:=facti*i;
si:=si+factk/(ik+facti)
end;
sk:=sk+si
end;
Writeln('Результат: ',sk)
end.
8бит = 1байт вроде так...
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Where(x->x>0).Select(x->x*x).Average.Println
end.
<u>Пример</u>
29 45 -32 -44 -48 25 8 -4 -25 -22
888.75
Весьма интересно описан процесс перемножения чисел ;)
Результат операции будет в временной с именем z