View - Pasted

Pascal |

360 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

//1.63
 
Begin
  var y, a, x, b: double;
  
  write('Vvedite a: '); 
  readln(a);
  
  write('Vvedite b: ');
  readln(b);
  
  write('Vvedite x: ');
  readln(x);
  
  if (a < x)AND(x < b) then
    y := a + b * x * x * x
  else
    if x <= a then
      y := a - sin(a - sqrt(x))
    else
      y := ln(x-b) / ln(10);
      
  writeln('Y = ', y);
end.

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎