Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.
Пока первый держи, остальные может завтра допишу. А так, в интернете полно примеров решения.
<span>
Сколько единиц в двоичной записи
Сколько единиц в двоичной записи числа 4^324+32^234-1
</span>
<u><em>Ответ:649</em></u>
F(153) = F(152) + 153 = F(151) + 152 + 153 = F(150) + 151 + 152 + 153 = ... = F(1) + 2 + 3 + ... + 153 = 1 + 2 + 3 + ... + 153 = 153 * 154 / 2 = 11781
Фух, держи) Вот, Юный Натуралист посмотрела в интернете, вроде бы правильно.