Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:контрольная работа / вар 24 / 2
.txt Program zadanie_2;
Var y,x : real;
Begin
Writeln ( '‚ўҐ¤ЁвҐ x');
Read (x);
If x < 2 then y:= x*x+exp(x*ln(2))
else if x = 2 then y:= x+pi
else if x > 2 then y:= sqr(sin(x))+sin(x)/cos(x);
Writeln (' y= ',y:8:3);
End.
Var y,x : real;
Begin
Writeln ( '‚ўҐ¤ЁвҐ x');
Read (x);
If x < 2 then y:= x*x+exp(x*ln(2))
else if x = 2 then y:= x+pi
else if x > 2 then y:= sqr(sin(x))+sin(x)/cos(x);
Writeln (' y= ',y:8:3);
End.