Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.

+3
Ответы (1)
  1. 17 марта, 23:00
    0
    program zz1;

    var a, b, c, min:integer; / /задаем переменные

    begin

    write ('введите первое число '); / /вводим с клавиатуры первое число

    read (a);

    write ('введите второе число '); //вводим с клавиатуры второе число

    read (b);

    write ('введите третье число '); //вводим с клавиатуры третье число

    read (c);

    min:=1000000; / /задаем начальное значение для минимума

    if (a < b) and (a < c) then min:=a; / /проверяем, если первое число наименьшее, то записываем его в min

    if (b < c) and (b < a) then min:=b; //проверяем, если второе число наименьшее, то записываем его в min

    if (c < b) and (c < a) then min:=c; //проверяем, если третье число наименьшее, то записываем его в min

    write ('минимальное среди трех заданных чисел = ', min); / /выводим ответ

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Составьте программу для решения следующей задачи массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел
Ответы (1)
Маша набирает текст со скоростью 40 символов в минуту, а Катя - 20 символов в минуту. Через какое время девочки введут одинаковое количество символов, если Катя начала набирать текст на 5 минут раньше Маши?
Ответы (1)
Кодирование нотной записи занимает 14 байт. Каждая нота кодируется одним 2 битами. Сколько нот в записи?
Ответы (1)
какое значение будет иметь переменная S после выполнения следующего оператора S=0, i=2 Repeat i:=2*i; S: = S+i until i > 10
Ответы (1)
Дано N чисел. Найти самое большое число, на которое делятся все N чисел.
Ответы (1)
система охлаждения процессора, предстовляющея собой металлический радиатор с вентилятором
Ответы (1)
Найти индексы всех элементов массива, значение которого равно нулю, если таковой существует
Ответы (1)
Напишите программу, которая вычисляет сумму квадратов чисел от 1 до N. Число N программа должна запрашивать у пользователя.
Ответы (1)
ПаскальЗашифровать слово, поставив букве ее номер в алфавите.
Ответы (1)
Приведите примеры. 1. Отношения между двумя объектами? 2. Отношение между объектом и множеством объектов? 3. Отношение между двумя множествами объектов?
Ответы (1)