Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program first;
- var
- i,j,k,p,z : real;
- begin
- writeln('Input i');
- readln(i);
- writeln('Input j');
- readln(j);
- writeln('Input k');
- readln(k);
- P:=1.5-(I*I-J*J)/i/j/k;
- z:=(p-k)/sqrt(abs(sin(pi/6)));
- writeln('P= ',p:4:2);
- writeln('Z= ',z:4:2);
- end.
Add Comment
Please, Sign In to add comment