Войти Регистрация Спроси ai-bota

Решить в паскале z=(min(x,y)+0,5)/(1+max*max(x,y))

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Askemba

26.05.2020 01:22

Сравните и отметить галочкой чем может отличаться приемник информации от источника информации. внешним видом воспринимать информацию передавать информацию запоминать информацию...

annaglukhikh07

10.05.2022 18:50

Какой блок нужно выбрать, чтобы начать рисовать линию в среде программирования Scratch...

milanagorbovsk

01.12.2021 14:49

Найти сумму всех положительных чисел и отдельно всех отрицательных. Вывести на экран обе эти суммы. На питоне...

polina1362

17.12.2022 15:47

1. Какие условия называются вложенными? 2. Перечислите структуру вложенных операторов if.3. Каким образом выполняются вложенные операторы?4. Почему удобнее использовать специальный...

fpu51810

28.01.2021 18:28

.(Дан двумерный массив из n×m элементов (n, м≤ 100) a11, a12 , a1n ; am1, am2 , amn.. найти сумму элементов на нечетных местах массива и произведение элементов на четных...

senan53

17.08.2021 06:32

Толя получает информацию из интернета со скоростью 2^18 бит/с и передает ее мише со средней скоростью 2^15 бит/с. компьютер толи может начать ретрансляцию данных не раньше,...

BanderSap

18.06.2020 15:39

Құрал-саймандар тақтасындағы мына батырмалардың функциясын анықтап, кестені толтырыңдар.Дәптерге орындайықОГ03VНоо7 АГООО~...

arinakirkot

03.01.2020 00:42

2-тапсырма**, a, b, c бүтін сандары берілген. Осы сандардың қосындысы мен көбейтіндісінің соңғы цифрларының қосын-дысын экранға шығар.МысалыНәтиже7942Түсініктеме9. 4 : 2...

никитос73803

13.01.2023 16:37

Пользователь вводит катеты прямоугольного треугольника. Найти S и P треугольника A, b:integer ;P, S :Real Корень из X =SQRT(X) C=КОРЕНЬ ИЗ A^2+B^2...

Алтын12938849к9ку9

24.02.2022 13:42

Дано: 1. числа 6 та 12 2. числа 7 та 21 3. числа 44 та 22 4. числа 72 та 36 Перевести їх у двійкову систему та послідовно провести з ними усі арифметичні операції - Додавання,...

Ответ:

cucumber03

29.07.2020 16:28

Var
X,Y,M:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if X>Y then
Begin
M:=X;
X:=Y
End
else M:=Y;
Write('z = ',(X+0.5)/(1+M*M))
End.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку