Задать вопрос
ИнформатикаИнформатика
10 февраля, 08:51

Составить программу на языке Pascal.

Дано: а1, а2, а3, - производное.

Найти: min

+2
Ответы (2)
  1. 10 февраля, 09:05
    0
    Var a1, a2, a3, min : integer;

    begin

    readln (a1, a2, a3) ;

    min : = a1;

    if min > a2 then min : = a2;

    if min > a3 then min : = a3;

    writeln (min) ;

    end.
  2. 10 февраля, 09:33
    0
    Program bit;

    var m, a1, a2, a3:

    integer;

    begin

    writeln ('введите три числа') ;

    readln (a1, a2, a3) ;

    if (a1
    if (a2
    if (a3
    if (a1=a2) and (a1=a3) then

    writeln ('они равны')

    else writeln ('меньшее из трёх ', m) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Составить программу на языке Pascal. Дано: а1, а2, а3, - производное. Найти: min ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Помогите с ответом
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Данные имена существительные поставь форме множественного числа и запиши пары слов обозначь в словах ту часть которая изменяется при изменении слова по числам
Нет ответа
Яркий солнечный день. светит ... дует ... а вокруг ... Слова для составления предложения. Пушистая, молодая, зеленая, мягкая, сочная, как бархатная зеленеет, словно раскинулся ковер Желтые поговки, яркие фонарики огоньки, маленькие солнышки Растут,
Нет ответа
Обчисли значення виразу 3 х-у
Нет ответа
Новые вопросы по информатике
Перевести число 125,75 и 453,125 из десятичной системы счисления в дваичную, восьмеричную и шестнатеричную системы с числения
Ответы (1)
ИКТ 9 класс, помогите с программой, прошу находчиво объяснить, в частности там, где есть алгоритм for ... do ... Язык Паскаль: var s, k: integer; begin s: = 500; for k: = 4 to 10 do s: = s - 2*k; write (s) ; end.
Ответы (1)
Информационное сообщение объемом 42 байта содержит 84 символа Какова мощность алфавита
Ответы (1)
Составить алгоритм 3 класс
Ответы (1)
Расположите числа в порядке возрастания 6E16 1428, 11010012, 10010
Ответы (1)
Главная » Информатика » Составить программу на языке Pascal. Дано: а1, а2, а3, - производное. Найти: min
Регистрация Забыл пароль