Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Luxky
07.07.2020 18:20 •
Информатика
Написать программу в pascal. напишите функцию выбора меньшего из целых чисел. используйте ее в программе выбора наименьшего из трех чисел.
Показать ответ
Ответ:
YIUYA123DANIL
21.09.2020 14:20
Var a,b,c,m:integer;
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
m:=min(min(a,b),c);
writeln('min=',m);
end.
Пример:
a=5
b=3
c=8
min=3
0,0
(0 оценок)
Популярные вопросы: Информатика
ab198me
02.12.2021 07:58
Что получится в ячейке C3?...
LegPug
05.08.2020 14:20
Выдели высказывания из высказывания «Число 27 делится на 3 тогда и только тогда, когда сумма цифр числа 27 делится на 3»....
zubkovnikita
26.11.2022 02:40
Компьютерная техника используемая человеком в быту...
Sharedes
04.07.2022 12:07
Дано 3-х значное число n. проверить, будет ли сумма его цифр чётным числом....
feyruz707
20.01.2023 10:33
Связь,открытая нашим соотечественником 1895 г....
linkolnvl
20.01.2023 10:33
Вкаких областях деятельности человека могут использоваться электронные таблицы?...
dianaevdokimova77
04.04.2023 15:23
Дан массив натуральных чисел,заполненный случайными числами. найти произведение элементов кратных 3....
makskatya20
04.04.2023 15:23
Даны натуральные числа n 20 попарно различные действительные числа . в последовательности поменять местами наименьший элемент и элемент с номером 20-n...
dinbili2
04.04.2023 15:23
1. дано слово. удвоить в нем все буквы, стоящие на четных местах 2. составьте программу, определяющую, на какую букву заканчивается второе слово в предложении...
olgagdanova196
17.05.2021 04:10
Сообщение на тему общение в интернете от 5 до 8 предложений...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
m:=min(min(a,b),c);
writeln('min=',m);
end.
Пример:
a=5
b=3
c=8
min=3