View - Pasted

Pascal |

270 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

//Задача 1.47 Кучеренко
 
Begin
  var x, a, y: real;
  
  write('Vvedite x: ');
  readln(x);
  
  write('Vvedite a: ');
  readln(a);
  
  if x = a then
    y := ln(x - cos(a * x))
  else
    y := exp(x - sin(a + x));
    
  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
|
👍
/
👎