Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу
вот
второе задание

Ответ оставил Гость

Var x,y,z,a:real;
begin
write(x=);readln(x);
write(y=);readln(y);
write(z=);readln(z);
a:=(y-sqrt(abs(x)))*(x-y/(z+x*x/4));
a:=abs(a)*abs(a);
writeln(a=,a);
end.