Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Tcgdfh
04.09.2022 06:50 •
Информатика
Составить алгоритм нахождения(это нужно делать в паскале) 1) меньшего из двух чисел 2)меньшего из трех чисел
Показать ответ
Ответ:
matveeva192016
08.10.2020 09:23
1. Меньшее из 2-х:
program Minimum;
var
a, b: integer;
begin
write('введите 2 числа: ');
readln(a, b);
if a < b
then writeln('минимум: ', a)
else writeln('минимум: ', b);
end.
2. Меньшее из 3-х с функции:
var
x1, x2, x3, mn: integer;
function min(a, b: integer): integer;
begin
if a < b
then min := a
else min := b
end;
begin
write('введите 3 числа: ');
readln(x1, x2, x3);
mn := min(x1, min(x2, x3));
writeln('минимум: ', mn);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
катя19052
22.11.2022 01:45
Первый полет Юрия Алексеевича Гагарина в космос начался 12 апреля 1961 года. Исходное время ‑ 9 часов 07 минут 0 секунд. Между временем старта и началом дня празднования...
eroly12ramblerr2
27.03.2020 06:59
А) для данных табл. 6.8 постройте две линейные регрессионные модели. б) для этих же данных вычислите коэффициенты корреляции. Сравните с приведенными на рис. 6.8...
nvgaponuk
08.03.2022 22:57
Найдите значение выражения. Запишите код программы на языке Python....
одиночка7
20.08.2022 06:41
Зачётное задание Часовой завод изготовил в январе часы трёх видов: соответственно 150, 220, 170 шт. В феврале производство продукции выросло: I вида – на 5%, II...
АмаХастла
24.05.2021 07:39
1. Установи последовательность шагов алгоритма, следуя которому космический робот сможет совершить полёт на Луну и привезти учёным образцы лунного грунта. Расставь...
Johngear
30.03.2022 15:43
.Найти площадь треугольника по формуле:s=1\2ah где ф сторона треуголнгика а h высота Составить алгоритм и программу на паскале...
Septarik
28.04.2020 23:31
Записать в виде блок-схемы алгоритм преобразования величины временного интервала, выраженного в секундах в величину, выраженную в минуты и секунды...
moon551
15.03.2021 18:34
Ребят, знаю, сайт не для этого создан, но , чё с этим делать? дам...
лера2238
28.06.2021 18:43
люди ) Программа на ПитонеДано натуральное число n. Выведите в порядке возрастания все трехзначные числа, сумма цифр которых равна n.ВХОДНЫЕ ДАННЫЕВводится натуральное...
Наташа1358064225
04.04.2023 10:52
решить эту не посильную задачу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program Minimum;
var
a, b: integer;
begin
write('введите 2 числа: ');
readln(a, b);
if a < b
then writeln('минимум: ', a)
else writeln('минимум: ', b);
end.
2. Меньшее из 3-х с функции:
var
x1, x2, x3, mn: integer;
function min(a, b: integer): integer;
begin
if a < b
then min := a
else min := b
end;
begin
write('введите 3 числа: ');
readln(x1, x2, x3);
mn := min(x1, min(x2, x3));
writeln('минимум: ', mn);
end.