Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ЛюБИмИЦа55
19.03.2023 11:55 •
Информатика
Даны три вещественных числа. используя только два неполных условных оператора, определить: минимальное значение заданных чисел. надо написать программу.
Показать ответ
Ответ:
Айхан111111
05.10.2020 09:35
Var a,b,c,min:real;
begin
writeln('a, b, c:');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min = ',min);
end.
Пример:
a, b, c:
8 5 6
min = 5
0,0
(0 оценок)
Популярные вопросы: Информатика
Kros228volk225
14.03.2022 05:53
Надо.1)найдите правильную на языке паскаль запись выражения 19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)найдите правильную на языке паскаль записы...
vkonareva
27.02.2020 14:11
2) написать программу вычисления площади треугольника, если известны длины двух сторон и величина угла между этими сторонами. ниже представлен рекомендуемый вид экрана во время работы...
IrishkaKoteika2689
19.12.2022 09:31
Какую мощность развивает подъемный кран,поднимая груз массой 800 кг на высоту 5 м за 4 с?...
Лилесим
19.12.2022 09:31
Здійсніть ланцюжок перетворень та дайте назви утвореним речовинам: fe = feo= fecl2 = fe(oh)2 = feso4 = fe (no3)2...
FlaxyPlay
19.12.2022 09:31
Петя пролистал 80 страниц детской энциклопедии, что составляет 58 всей детской энциклопедии. вычисли, сколько страниц в детской энциклопедии. выбери правильные утверждения. целое...
нина568
19.12.2022 09:31
Как можно больше примеров и процессов, с указанием где какой...
ЮлияМезина
19.12.2022 09:31
Найдите все простые делители произведения а) 6*15*77 б...
хххххх15
19.12.2022 09:31
Цитати до образу троянців з енеїди !...
madara014
19.12.2022 09:31
0,5(х+4)-х 4 укажите наименьшее целое решения неравенства.(распишите решение полностью )...
томкавеликая
19.12.2022 09:31
На окраску деревянного кубика затратили 4 г краски. когда она высохла, кубик распилили на 8 одинаковых кубиков меньшего размера. сколько краски потребуется для того, чтобы закрасить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('a, b, c:');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min = ',min);
end.
Пример:
a, b, c:
8 5 6
min = 5