Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
света940
15.07.2020 15:27 •
Информатика
Составить алгоритм нахождения(это нужно делать в паскале) 1) меньшего из двух чисел 2)меньшего из трех чисел
Показать ответ
Ответ:
Vika20032412
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 оценок)
Популярные вопросы: Информатика
Иван66665
11.05.2021 13:23
Сообщение объемом 384*10^16 бит 1-122-233-344-8...
jenkatimosh
13.06.2022 17:41
Запись десятичного числа 754 содержит не менее трех цифр и оканчивается на 4. определите основания всех возможных систем счисления, в которых соблюдается заданное условие....
Nastykaramova
12.01.2022 03:55
Напишите, программу в паскаль. пользователь вводит x, y и z. программа находит:...
sargsyantatev1
11.04.2023 14:17
Яхочу сделать флешку которая будет при подключении делать разные действия на компьютере. и чтобы она могла установить одну программу. мне нужно чтобы вы скинули ссылку на утилиту...
masgovorchenko
15.02.2023 10:47
Нужно сделать это в паскале: составьте программу, реализующую алгоритм перестановки по следующему правилу. исходный текст записывается в табличку строчками по 15 букв. шифрованный...
ДаРуСя10
06.04.2022 20:49
Нарисовать блок схему к найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений...
donatas6969
10.04.2020 20:43
Паскаль. в коде решения ошибка и поэтому сортировка не происходит, не дописан цикл, не понимаю как записать. условие - произвести сортировку списка студентов по фамилиям по алфавиту....
koki1501
08.12.2022 10:11
Создать объект, который обрабатывает массив целых чисел не более 10 элементов.количество элементов определяется в момент конструирования объекта.объект обладает следующей функциональностью:...
Ele4ka17
15.09.2020 17:10
(pascalabc) все отрицательные элементы двумерного массива m(3,4) умножить на 2 и посчитать их количество...
ЭвелинаРожкова
02.11.2022 17:09
Робот находится в левом конце горизонтального коридора, идущего вправо. нижняя стена коридора сплошная, а в верхней стене есть несколько выходов. напишите алгоритм, который перемещает...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.