//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
Либо одна собака (4 лапы) и три курицы (6 лап), либо две собаки (8 лап) и одна курица (2 лапы)
Var a,b:integer;begina:=20;b:=21;repeata:=a+b;b:=b+1;until (b>99);writeln(a);end.
Каждый человек желает знать где берут мозоль
512=2^i
i=9 бит
v=k*i=400*9=3600 бит/8=450 байт/1024=0,43 Кб