// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=MatrRandom(6,3,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a.Rows.Select(r->r.Where(x->x>0).Sum).Print; Println(' - суммы положительных');
Writeln; var z:=MatrRandom(3,5,-10,20); z.Println(4); Writeln(4*z.ColCount*'-'); z.Rows.SelectMany(x->x).Where(x->(x>0) and (x<15)).Println end.
Procedure GoGo(a : Integer; s : String); Begin If a<=24 then If a=24 then Begin Inc(N); Writeln(s); end else Begin GoGo(a+2,s+'+2'); GoGo(a*2,'('+s+')*2'); end; end;
У которого объема хранилища хвататет только на операционную систему.
Объяснение:
Обычно файлы хранят на nas-хранилищах. У них большие объемы жёстких дисков ( обычно не менее 2 терабайт (2 000 гигабайт)).