Quipex

3.199

Apr 7th, 2016
415
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. //Задание 3.199 Кучеренко
  2.  
  3. const
  4.     pi: real = 3.14159265359;
  5.  
  6. Begin
  7.   var y, a, b, x, t: real;
  8.    
  9.   writeln('Vvedite cherez probel:');
  10.   writeln('a, b, x, t');
  11.   readln(a, b, x, t);
  12.  
  13.   if x < t then
  14.     y := a * exp(ln(x) * b) + pi
  15.   else
  16.     y := x + sin(exp(ln(x) * a) - b);
  17.    
  18.   writeln('Y = ', y);
  19. end.
Advertisement