Var i,a,b,f:real;
Вроде так
begin
writeln('Введите a=');
read(a);
writeln('Введите b=');
read(b);
f:=sqrt(PI/8)*(sqrt((sqrt(a+b))/(sqr(a)+sqr(b)))-a*(sqr(b)*b));
writeln(f);
end.
Если я правильно тебя поняла то ответ на фото.
11-2048
12-4096
13-8192
14-16384
15-32768
16-65536
a = str(input("введите строку - "))
b = list(a)
c = len(b)
if c % 2 == 1:
a1 = c // 2
print(b[a1])
else:
a1 = c // 2 - 1
a2 = c // 2
print(str(b[a1]) + ' , ' + str(b[a2]))
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Abs(ReadReal).Println
end.