Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Романman
20.11.2022 08:39 •
Информатика
Решить в паскале z=(min(x,y)+0,5)/(1+max*max(x,y))
Показать ответ
Ответ:
ЗнающийМудрец
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 оценок)
Популярные вопросы: Информатика
alinkamalinka499
24.06.2020 04:04
173 в восьмеричную в а2 в двоичную...
raffigaz10
15.10.2020 04:01
2. как вы понимаете высказывание норберта винера: «любая машинастоит лишь столько, сколько стоит человек, который на ней работает»? ...
maxsimsto
21.01.2022 09:22
Написать программу для pascal по этой...
котбутерьрод
23.09.2021 04:42
Написать программу рассчитать сумму ежемесячных выплат процентов по депозиту, если договор составлен на полгода под 6% годовых или на год под 8% годовых. с клавиатуры...
зимахолодная
01.12.2021 20:57
Рассмотрите различные ситуации с информационной точки зрения, заполнив таблицу...
zlatovlaska
31.10.2022 13:19
Составить программу для вычисления работы сердца А=1,2V(Р+DC2 /2). В норме ударный объем сердца– Vудар =6*10-5 м3 , среднее артериальное давление P= 13000 Па, плотность...
Илья55555555
29.10.2020 06:41
Найдите среднее арифметическое чисел от 2 до 45 .C++...
Dmitro222
12.01.2023 17:16
Марс алгоритмика.Создать простого чат бота на ихнем сайте на пайтоне очень нада...
алиса768
08.07.2021 03:50
Какое число больше? В скобках указано основание системы счисления для каждого числа 1F(16) 13(8) 34(10)...
Marikalitkina
14.10.2022 02:07
1. Збережіть назви мов світу, які вводяться в одному рядку через пропуск, у списку. Простежте за тим, щоб елементи у списку не зберігались в алфавітному порядку. Відсортуйте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.