А) 4*1024; 4*1024*8;
b) 8192/8; 8192/(8*1024)
d)8*1024*1024*8
//PascalABC.NET 3.2 сборка 1318
Var
a,b,c,d:real;
begin
readln(a,b,c,d);
if a*b>c*d then writeln((a+b+c+d)/4) else writeln(power(a*b*c*d,1/4));
end.
Пример ввода:
1
2
3
4
Пример вывода:
2.21336383940064
1001=1*2^3+1*2^0=9 степени справа налево от нуля,нулям степени не писала т.к в итоге 0 получится