Задание 1
program z1;
var a,b,c,d,e,f,z:real;
begin
read(a,b);
c:=a*a+sqr(b);
d:=sqrt(sqrt(c));
e:=sin(c);
f:=1/c;
z:=d+e-f;
writeln(z)
end.
Задание 2
скрин
Объяснение:
скрин
Или можно только одну дополнительную переменную использовать:
var
z,t,a,b: real;
begin
writeln('введите значения переменных:');
write('a= ');
read(a);
write('b= ');
read(b);
t:=a*a+b*b;
z:=power(t,1/4)+sin(t)-1/t;
writeln;
writeln('z= ',z);
end.
