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