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

Ответы (1)

Азаршин 01.01.2025 5

Var a,b,c,min : integer;
begin
    write('Введите три числа через пробел и нажмите Enter: ');
    readln(a,b,c);
    if (a > b) then
        if (a > c) then
            min := c
        else
            min := b
    else
        if (b > c) then
            min := c
        else
            min := a;
    writeln('Минимальное число: ',min);
    readln;
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: