У меня это получилось сделать так:
//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.
1. 3 мин = 180 с
2. 768 кб = 3/4 Мб
3. Если 3 Mб передаются за 180 с, то 1 Мб будет передан за 60 с,
а 3/4 Мб передадутся за 40 с
Ответ: 40 секунд
Решение в приложении.
Ответ: 16
var
i, n, k, max: <em>integer</em>;
begin
readln(n);
max := Integer.MinValue;
for i := 1 to n do
begin
readln(k);
if (k mod 4 = 0) then
max := System.Math.Max(max, k);
end;
writeln(max);
<span>end.</span>
Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ