<span>var
</span><span><span> a,b,c:</span>integer;
</span><span><span> begin
</span><span> read(a,b,c);</span>
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span><span> end.</span></span>
Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>
2^n =52 ----> n = 6 бит для кодировки одной участницы в одном туре
6*6 = 36 бит =5 байт - для кодировки одной уч. в шести турах
5*52 = 110 байт - объём памяти для всех уч. во всех турах
ответ 110 байт
У меня это получилось сделать так:
//PascalABC.NET
var
n, k : integer;
x, s : real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s := 0;
for k := 1 to n do
s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x));
writeln(' res = ', 1 / (x*x + sqrt(x)) * s)
end.