fork download
  1. Program Test(output, output);
  2. var x,y,z, a: real;
  3. var k1, k2, k3, k4: real;
  4. const e=2.718281;
  5. begin
  6. write('Ведіть x: ');
  7. readln(x) ;
  8.  
  9. write('Ведіть y: ');
  10. readln(y) ;
  11.  
  12. write('Ведіть z: ');
  13. readln(z) ;
  14. a:= 0;
  15.  
  16. begin
  17. k1:=EXP((x-z)*LN(e));
  18. k2:=SQRT(k1);
  19. k3:=EXP((ABS (y))*LN(x));
  20. k4:= k2+k3+z;
  21. a:= LN(k4)/LN(10);
  22. end;
  23. writeln('Фінальний результат a=', a)
  24. end.
  25.  
Success #stdin #stdout 0s 5564KB
stdin
1.542
-3.261
80.005
stdout
Ведіть x:  Ведіть y:  Ведіть z:  Фінальний результат a= 1.9248490962615403E+000