Question

Напишите програму пж
Задача. Определить меньшее из трёх заданных чисел.
Дано: a1, a2, a3 – любые три числа
Найти: min – минимальное число.
это паскаль абс

Answer 1

program;

Var a1, a2, a3:integer;

begin

write('Введите 3 числа :');

read(a1, a2, a3);

write('Наименьшее из них :');

If (a1<a2) and (a1<a3) then

                  If a1<>0 then write(a1);

If (a2<a1) and (a2<a3) then

                  If a2<>0 then write(a2);

If (a3<a1) and (a3<a2) then

                   If a3<>0 then write(a3);

If a1=0 then

      If a2<a3 then write(a2)

             else write(a3);

If a2=0 then

      If a1<a3 then write(a1)

              else write(a3);

If a3=0 then

      If a1<a2 then write(a1)

             else write(a2);

If (a1=0) and (a2=0) then write(a3);

If (a2=0) and (a3=0) then write(a1);

If (a1=0) and (a3=0) then write(a2);

end.