Пожаловаться
- 16.08.2018 14:17
- Информатика
- remove_red_eye 15587
- thumb_up 12
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите x,y:');
Writeln((3+Exp(y-1))/(1+x*x*Abs(y-Tan(x))))
end.
Пример
Введите x,y: 2.16 -0.432
0.543001464791351
begin
var x:=ReadReal('Введите x:');
Writeln(x-x*x*x/3+x*Sqr(Sqr(x))/5)
end.
Пример
Введите x: 2.12
7.50860102997334
begin
var (x,y):=ReadReal2('Введите x,y:');
Writeln(Cos(x)/(Pi-2*x)+16*x*Cos(x*y)-2)
end.
Пример
Введите x,y: -0.534 3
-1.52895895115567
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите x,y:');
Writeln((3+Exp(y-1))/(1+x*x*Abs(y-Tan(x))))
end.
Пример
Введите x,y: 2.16 -0.432
0.543001464791351
begin
var x:=ReadReal('Введите x:');
Writeln(x-x*x*x/3+x*Sqr(Sqr(x))/5)
end.
Пример
Введите x: 2.12
7.50860102997334
begin
var (x,y):=ReadReal2('Введите x,y:');
Writeln(Cos(x)/(Pi-2*x)+16*x*Cos(x*y)-2)
end.
Пример
Введите x,y: -0.534 3
-1.52895895115567
Пожаловаться
- 17.08.2018 19:16
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы