На числовой прямой даны два отрезка: p= [5, 15] иq= [10, 25]. выберите из ниже такой отрезока, чтобы формула(x ea) -> (хє р)) v (х є q)была тождественно истинной, т. е. принимала значение 1при любом значении переменной х.1) [0, 9]; 2) [14, 30]; 3) [31, 42]; 4) [7, 23].​

visual basicвыделить код

option explicit

function min_3(a as variant, b as variant, c as variant) as variant

    min_3 = a

    if a > b then min_3 = b

    if min_3 > c then min_3 = c

end function

 

private sub form_activate()

dim a as integer, b as integer, c as integer

 

a = val(inputbox("введите число"))

b = val(inputbox("введите число"))

c = val(inputbox("введите число"))

 

print "наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & min_3(a, b, c)

end sub

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.