Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
валера336
11.05.2022 14:03 •
Информатика
Даны действительные числа a,b,c. составьте программу для вычесления max (a+b,c)-min (a+c,b).
Показать ответ
Ответ:
Dianaspbrf
02.10.2020 21:00
// PascalABC.Net
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b
end;
function min(a,b:real):real;
begin
if a<b then min:=a else min:=b
end;
var
a,b,c:real;
begin
Write('Введите три числа через пробел: '); Read(a,b,c);
Writeln('Результат: ',max(a+b,c)-min(a+c,b))
end.
Тестовое решение:
Введите три числа через пробел: 5 -2 3.8
Результат: 5.8
0,0
(0 оценок)
Популярные вопросы: Информатика
WooLFooS
13.10.2021 18:18
Вид внутренней памяти компьютера, в которой находится программа тестирования, настройки необходимых параметров используемого в данном компьютере оборудования и загрузкиоперационной...
ismailovu5
18.02.2023 10:08
Ребята, нужна Совсем не понимаю как нужно объяснить и написать, что получится при выводе на экран. Объясните Очень хочется разобраться. Повторно пишу с фотографией...
nzotov299
08.01.2020 20:01
Разложить на множители: [tex]1-(8a-3)^{2}[/tex]варианты ответа: 1) 4(2a+1)(4a-1)2) 8(1-2a)(4a-1)3) (16a-1)(4a-3)4) 4(a-2)(a+3)5) 8(4a+1)(1-2a)...
софа11111111112
08.01.2020 20:01
Напишите сочинение про рассказ дурное общество про главного героя его чувства и т,д !...
mridrazov
08.01.2020 20:01
Rengils about monkeys ava an as the po leath goes maters living room the of bases перевод !...
Селена24на7
22.01.2022 08:24
При якому значенні аргументу значення функції дорівнює 4?...
0202991
08.01.2020 20:01
88 8 8 8 как расставить знаки чтобы получилось 32...
Tupayagirl1
15.09.2021 23:34
Примеры предложений: 1.утвердительное, повествовательное, невосклицательное, простое, двусоставное, распространенное, полное.82.отрицательнок, побудительные, восклицательное,...
niklysov2015
08.01.2020 20:01
ответье на вопросы из сказки рыцарь вася. 1. какя мысль в рассказе , на ваш взгляд, гланая? 2. что вам понравилось в все, а с чем в его поступках и поведении вы не...
oborinamascha
08.01.2020 20:01
Надо написать маленькое сочинение по языку про сектор газа 5 или 6 предложений...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b
end;
function min(a,b:real):real;
begin
if a<b then min:=a else min:=b
end;
var
a,b,c:real;
begin
Write('Введите три числа через пробел: '); Read(a,b,c);
Writeln('Результат: ',max(a+b,c)-min(a+c,b))
end.
Тестовое решение:
Введите три числа через пробел: 5 -2 3.8
Результат: 5.8