Lab3_4b

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Lab34B;
var x, y, z: real;
a, b: real;
begin
write('Vvedit x: ');
read(x);
write('Vvedit y: ');
read(y);
write('Vvedit z: ');
read(z);
a := y + (x / y * y + abs(x * x / (y + x * x * x / 3)));
b := 1 + sin(z / 2) / cos(z / 2) * sin(z / 2) / cos(z / 2);
writeln('a = ', a:4:2);
writeln('b = ', b:4:2);
end.