Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
коля725
31.05.2023 22:35 •
Информатика
Даны три числа(a,b и c) найти разность наибольшего и наименьшего из них.
Показать ответ
Ответ:
Katerinka0307
05.10.2020 08:04
Program n1;
var a,b,c,max,min: real;
begin
readln(a,b,c);
if(a>b) and (a>c) then max:=a;
if(b>a) and (b>c) then max:=b;
if(c>a) and (c>b) then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('разность: ',max-min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Anel7575
26.10.2020 13:59
Заполнить недостающие места в ряду (раб тетрадь моро 3 класс, с.28) 2, 5, 4, 7, 8, 9, , , 32 и 3, 8, 15, , , 48, , 80...
dimon2512
15.03.2023 21:37
Как поченить ноутбук объяснение по клавишам...
mement0m0ri
15.12.2022 21:02
Написать программу, реализующую процедуры заказа и расчета его суммы в мини — пиццерии. В меню пиццерии предусмотрено 4 вида пиццы и три вида напитков. Пользователю выводится...
frost09042004ozo97y
18.01.2020 03:33
1. Для снятия блокировки с одного из отсеков Газодобывающей станции необходимо получить слово-пароль. Но после сбоя терминал вместо пароля выдает просто набор букв: зазрчзоаДиагностика...
Tuchka087
12.10.2020 16:57
Что делать если я хочу отключить анти вирус а выскакивает это?...
MissDiana1111
28.05.2020 11:35
Выберите поле в диалоговом окне «Свойства страницы» редактора KompoZer, которое необходимо заполнить для отображения имени вкладки, выделенной на скриншоте красным прямоугольником?...
ВаняАВЕР2006
23.12.2022 04:49
Переведите в биты 8 кбайт и 22 байт...
Ponchic2201
02.10.2021 13:26
При выключении питания компьютера вся информация...
112110
02.10.2021 13:26
Текст рассказа набран на компьютере. информационный объем получившегося файла 15 кбайт. текст занимает 10 страниц, на каждой странице одинаковое количество строк, в каждой...
ooo29
02.10.2021 13:26
Можно ли в программеms excel копировать формулы с ячейками? а) да, но только если ячейка содержит формулу с абсолютной ссылкой б. нет в.да, любую ячейку с любыми йормулами...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,max,min: real;
begin
readln(a,b,c);
if(a>b) and (a>c) then max:=a;
if(b>a) and (b>c) then max:=b;
if(c>a) and (c>b) then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('разность: ',max-min);
end.