Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //Задача 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.
Advertisement
