Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Olga692010
03.05.2022 07:54 •
Информатика
Даны три числа(a,b и c) найти разность наибольшего и наименьшего из них.
Показать ответ
Ответ:
Nikita82279
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 оценок)
Популярные вопросы: Информатика
АааLoo
14.06.2022 11:49
Как моно содать свой сайт (Zертвую всеми своими балами}...
TOPTopTOP1vvv
24.07.2022 17:29
Циклічний алгоритм - це той у якому ..?...
s7mart
17.05.2020 03:52
Чему будет равно значение переменной n после выполнения следующих инструкций? n:=0; while n =5 do n:=n+1; a) 1; b) 3; c) 0; d) 6; e) 5....
янис9
24.02.2020 14:51
Напишите программу, которая выводит на экран значение 20!. Python...
Макс11171
16.12.2020 17:57
Ребята я уверен что никто не решит и пойдут в пустую. Но если то большой вам поклон. Задание № 3. Задача о 12 монетах. Имеется 12 золотых монет. Одна из них – фальшивая, но не известно,...
azs194karelin
16.12.2020 17:57
Какое число будет записано в ячейку B1 после ввода формулы? =А1+2*А2...
Школьник5гокласса2
05.10.2021 21:16
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых...
лппериоаоаопоопо
11.09.2020 15:42
В каком текстовом поле указываются адреса получателей при отправке электронного письма? а) Кому б) Тема в) От кого г) Файлы...
ХристинаРоманівна
11.09.2020 08:39
Інформаційні процеси – це… 1)Процеси пошуку, зберігання, кодування та архівування даних. 2)Процеси пошуку, зберігання, опрацювання та передавання інформації. 3)Процеси пошуку, опрацювання,...
shik03082001
30.04.2021 17:15
Правила перевода недесятичной записи целой части числа в десятичную...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.