Составить блок схему и программу площади квадратов со стороной, меняющейся от 2 до 4 см с шагом на 3 мм.

Var a: real;     i: integer; begin       a : = 2;       while (a < = 4) do       begin           writeln(a, 'cm => ', a * a, 'cm2');           a : = a + 0.3;       end; end.

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.

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