(5*60*16*64)/1024=(75*2^2*2^4*2^6)/2^10=75*4=300(Мб)
Ну примерно так:…43;4;29;104
Вот код программы для этой прогрессии на С# и скриншот с результатом.
float ss = 0;
float s = 1;
Console.WriteLine("Введите n");
float n = Convert.ToInt16 ( Console.ReadLine());
Console.WriteLine("---------------------------");
for (float i = 2; i <= n; i++)
{ ss = s; s -= (1 / i); Console.WriteLine(ss + "-" + 1 / i + "="+s+"\n\r"); }
Console.WriteLine("---------------------------");
Console.WriteLine("Конечный результат s = " + s);
<span> Console.ReadLine();</span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=a.Pairwise; b.Println;
Writeln('Найдено пар: ',
b.Where(x->(x[0]<0) and x[1].IsEven or
(x[1]<0) and x[0].IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 10
-37 -71 -71 -65 73 -66 -33 -85 62 -92
(-37,-71) (-71,-71) (-71,-65) (-65,73) (73,-66) (-66,-33) (-33,-85) (-85,62) (62,-92)
Найдено пар: 3
Ответ:
Графики в порядке от 1 до 4