Помогите, пожалуйста. Решите то, кто что может. Тема: Алгоритмизация и программирование.

Помогите, пожалуйста. Решите то, кто что может. Тема: Алгоритмизация и программирование.

Задать свой вопрос
1 ответ
3

var
x,y:integer;
begin
writeln('X,Y = ');
read(x,y);
writeln((sin(x)+cos(y))/(cos(x)-sin(y))*tan(x*y));
end.

4
var
x,y:integer;
begin
writeln('X,Y = ');
read(x,y);
writeln((x+y)/(x+1)-(x*y-12)/(34+x));
end.

5
var x,y:integer;
begin
writeln('X,Y = ');
read(x,y);
writeln((3+exp((y-1)*ln(2.7)))/(1+sqr(x)*abs(y-tan(x))));
end.

6

var x:integer;
begin
writeln('X = ');
read(x);
writeln((x-exp(3*LN(x))/3)+(exp(5*LN(x))/5));
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт