Guest User

Untitled

a guest
Apr 21st, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.28 KB | None | 0 0
  1. program first;
  2. var
  3.    i,j,k,p,z : real;
  4. begin
  5.    writeln('Input i');
  6.    readln(i);
  7.    writeln('Input j');
  8.    readln(j);
  9.    writeln('Input k');
  10.    readln(k);
  11.    P:=1.5-(I*I-J*J)/i/j/k;
  12.    z:=(p-k)/sqrt(abs(sin(pi/6)));
  13.    writeln('P=  ',p:4:2);
  14.    writeln('Z=  ',z:4:2);
  15. end.
Add Comment
Please, Sign In to add comment