Войти
Регистрация
Спроси 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 оценок)
Популярные вопросы: Информатика
Yandarbieva1
16.02.2023 12:01
Даны числа: 9; 20; 322; 4041; 10386. Используя MS Excel, вычисли среднее арифметическое данных чисел....
Yarina0311
13.10.2022 10:32
Переведите из 32 битной в ip адрес и наоборот...
катя19052
22.11.2022 01:45
Первый полет Юрия Алексеевича Гагарина в космос начался 12 апреля 1961 года. Исходное время ‑ 9 часов 07 минут 0 секунд. Между временем старта и началом дня празднования...
eroly12ramblerr2
27.03.2020 06:59
А) для данных табл. 6.8 постройте две линейные регрессионные модели. б) для этих же данных вычислите коэффициенты корреляции. Сравните с приведенными на рис. 6.8...
mansursatuev
30.04.2020 04:59
В соответствии с таблицей кодировки ASCII, код буквы «о» равен 111. Определить слово, которое скрыто за кодами, не используя таблицу кодировки: 109 111 110 105 115...
nvgaponuk
08.03.2022 22:57
Найдите значение выражения. Запишите код программы на языке Python....
ahgdy
27.09.2022 03:44
1. Перевести в биты 1. 128 байт; 2. 1,5 Кбайт; 3. 0,5 Байт; 4. 0,2 Кбайт; 5. 45 байт; 6. 0,4 Кбайт; 7. 80 байт; 8. 0,001 Мбайт;...
одиночка7
20.08.2022 06:41
Зачётное задание Часовой завод изготовил в январе часы трёх видов: соответственно 150, 220, 170 шт. В феврале производство продукции выросло: I вида – на 5%, II...
АмаХастла
24.05.2021 07:39
1. Установи последовательность шагов алгоритма, следуя которому космический робот сможет совершить полёт на Луну и привезти учёным образцы лунного грунта. Расставь...
kmatachp01gzm
04.05.2022 00:30
Значение здорового жизни ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.