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.
64 = 2^6 т.е. занимает 6 бит на символ
6*100 = 600 бит
600/8 = 75 байт
Заметим, что 6 в 7-ичной системе счисления - максимальная цифра, поэтому 666 = 1000 - 1.
666 + 543 = 1000 + 543 - 1 = 1542