<span>думаю, да, это что-то типа "молодец, возьми с полки пирожок". Сделано для того, чтоб ученикам не казалось, что они делают это просто так, а всё же что-то за это получают. </span>
Потому, что архитектура современных компьютеров предусматривает обработку данных, содержащих целое число байт и один байт является минимальным размером таких данных.
2(x+3)²+2(x+3) - (2(x+2)²+(x+2))-64=0
2(x²+6x+9)+2x+6-2(x²+4x+4)-x-2-64=0
2x²+12x+18+2x+6-2x²-8x-8-x-66=0
5x=50
x=10
Var A:Array[1..nmax,1..nmax] of integer; n,m,i,j,sumN,sumV:integer;B:Array[1..nmax] of integer;beginwrite('Введите число n');readln(n);for i:=1 to n do beginfor j:=1 to n do beginm:= random(20)-10;A[i,j]:= m;write(A[i,j]:4);end;writeln;end;
writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif A[i,j]> 0 then beginwrite(A[i,j]:4); B[i]:= B[i] + A[i,j];end;end;writeln;end;writeln;writeln;for i:=1 to n dowriteln(B[i]:4);<span>end.</span>
14*8= 112мин, (14+2 = 16 машин стало), 112:16= 7 мин