Var
M, N: integer;
begin
read(M, N);
var ar := arrrandom(10, N, M);
writeln('Полученный массив:');
ar.Println;
end.
64 возможно, но это не точно
Var
a: integer;
begin
readln(a);
while (a > 3) do
a := a - 4;
writeln(a);
end.
-------------
Если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации:
var
a: integer;
begin
readln(a);
while (a > 0) do
a := a - 4;
writeln(a);
end.
1) (2048^2 * 24 * 0.9) / (1024^2 * 8)
2) Ответ из первого разделить на 3, умножить на 1024.
3) Ответ из второго умножить на 4, разделить на 2, разделить на 1024.
В порядке убывания:
колли | корм
колли
бульдог & колли
бульдог & колли & уход