Відповідь:
Пояснення:
7.а) Рендеринг
8. а)Структурное программирование.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(25, i -> 1 / Sqr(i), 1).Println.Sum.Println
end.
Ладно, раз все эти нюансы не важны, то вот так:
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.
Все на фотографии. Нужно использовать одну условную конструкцию