tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны действительные числа
Даны действительные числа a,b,c. составьте программу для вычесления max (a+b,c)-min (a+c,b).
ппмв
1 06.07.2019 06:00
1
Ответы
Татьяна64101
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dashadasha22399
11.01.2021 12:28
Сделать код на Pascal. Есть пример решения задачи с др условием.Может чем то...
улгкармцрваейьоц
11.01.2021 12:26
Заполните таблицу виды роботов примеры по три примера...
Vlada722
11.01.2021 12:24
Напиши название программы , которая относится к системному ПО...
Юль4ик11
11.01.2021 12:24
Даны четыре числа. Вычислить произведение отрицательных среди них чисел....
voirakbarov5gmailcom
18.07.2019 07:10
Как очистить жесткий диск с? только попонятней напишите ....
ваня1356
18.07.2019 07:10
Некоторое число в двоичной системе счисление записывается как 1111011. запитшите это число в десятичной системы счисление....
МарияМяуМяу
18.07.2019 07:10
Найти сумму натуральных чисел на промежутке от (45; 60)...
artyushin073
18.07.2019 07:10
Каков минимальный объем видеопамяти, необходимы для хранения графического изображения, занимающего область экрана 512х512 пикселей, где каждый. может иметь один из 256...
asellial
06.02.2022 15:45
З точки М до площини бета проведено перпендикуляр ML і похилу MK. Знайдіть ML, якщо кут KML=45 градусів, KM=8√2 см...
Лолита171107
06.02.2022 15:46
ребят подпишусь поставлю лайк оценю до 5...
Популярные вопросы
Докажите, не выполняя сложения, что сумма делится на 2,3,и на 4: а)60+48+24...
2
10 профессиональных слов что использует в своей речи директор магазина...
3
Расположите в хронологической последовательности события, начиная...
1
Стороны основания прямоугольного параллелепипеда 3 и 4 см.боковое...
3
Водном из ниже слов допущена ошибка в постановке ударения : неверно...
2
Во сколько раз увеличится радиус круговой орбиты искусственного спутника...
2
Вася потратил на дорогу в школу 12 минут 6 секунд. сколько секунд...
3
Две стороны ровнобедренного триугольника 5 см и 11 см. найдите периметр...
3
Решите пож я с вообще не дружу 1. в равнобедренной трапеции авсд с...
1
Решить/* это в квадрате,а это в кубе 2*·x-8 +5*=7* примечание: я в...
1
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