У меня это получилось сделать так:
//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.
Банка 7 литровая-банка 1
Банка 4 литровая-банка 2
Сосуд 1 и 2 для того, чтобы разделить
Наливаем в банку 1 и переливаем в банку 2, сливаем эти 4 литра в сосуд 1. В банке 1 оставалось 3 литра сливаем в сосуд 2. Наливам в банку 2 и переливаем в банку 1(делаем так два раза), таким образом, в банке 2 останется 1 л сливаем в сосуд 1. Остальное количество седа сливаем в сосуд 2. Готово.
Ответ:
в 1по идее 4 или или 3с половиной а во 2 4 или 3
<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>