1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
program lab1_zadanie2; var u,x,y,z:real; begin Write('Vvedite x: '); Readln(x); Write('Vvedite y: '); Readln(y); z:= sin(x+y); u:=(1+z*z)/(2+abs(x-2*x*x/(1+abs(z)))); Write('Otvet: ',u:3:2); Readln(); end.