Задать вопрос
ИнформатикаИнформатика
3 ноября, 18:19

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

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

Найти: min

+3
Ответы (2)
  1. 3 ноября, 20:34
    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.
  2. 3 ноября, 21:38
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить программу на языке Pascal. Дано: а1, а2, а3, - производное. Найти: min ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.
Ответы (2)
5. Нахождение минимального числа из введенных. Program MIN; Var A, I : Integer; Min : Integer; Begin Min:=32767; For I:=1 to 10 do Begin Write ('Vvedi chislo ') ; Readln (A) ; If A < Min then Min:=A; end; Writeln ('MIN=', Min) ; Readln; end.
Ответы (1)
Program z6_2; uses crt; const n=6; var a:array[1 ... 6]of real; i:integer; begin clrscr; Writeln ('введите элемент массива') ; for i:=1 to 6 do readln (a[i]) ; if min min:=a[i]; writeln ('min=', min:7:3) ; Repeat until keypressed; end.
Ответы (1)
Найдите значение Z, определив использовав функцию Min. Z=min (3, x) + min (x, y) - min (y, 5)
Ответы (1)
Вот условие: дано натуральные число н и действительные числа а1, а2 ... ан. Найти минимальное и максимальное число.
Ответы (2)
Помогите с ответом
Какая масса алюминия прореагирует с хлоридной кислотой, если при этом выделится пять моль водорода?
Нет ответа
Уравнения реакций взаимодействия пропена с водородом, бромом, бромоводородом
Нет ответа
Запишите уравнения реакций дегидрирования пропана и бутана и попробуйте дать названия продуктам по аналогии с этиленом.
Нет ответа
Образуйте краткую форму единственного (всех родов) и множественного числа от данный прилагательных. Бесчисленный. благословенный. Болезненный. Естественный. Малодейственный. Малосущественный. Малоурожайный. Многочисленный. Мужественный. Нравственный
Нет ответа
Выполнить морфологический разбор прилагательных: осенний, сухих
Нет ответа
Главная » Информатика » Составить программу на языке Pascal. Дано: а1, а2, а3, - производное. Найти: min
Регистрация Забыл пароль