//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
В моём словаре так -
число строк на странице: 86
число символов в строке: 120
информационный объем одной страницы (в байтах) : 86*20
информационный объем всего словаря (в байтах) : 86*20 *928 информационный объем всего словаря (в килобайтах) : 86*20 *928 /1024 информационный объем всего словаря (в мегабайтах) : 86*20 *928 /1024 /1024
Program summa;
var
s: real;
i: integer;
begin
s := 0;
for i := 1 to 10 do
s := (Power(i, 3) / 3) + (Power(i, 5) / 7) + (Power(i, 7) / 11) + (Power(i, 9)) / 15; Writeln('Сумма= ', s);
end.
Количество символов опр. так: 2^3=8
var i,s:integer;
begin
for i:=1 to 10 do s:=s+i;
writeln (s)
end.