Нарисуйте блок схему признак деления на ​

Sub prod()       dim p as double       p = 1       for each x in selection               p = p * x.value       next x       msgbox "произведение равно " + cstr(p) end sub замечание: ячейки могут располагаться в строке или столбце. если их будет четное количество (а не 5), то они вообще могут располагаться в прямоугольнике - макрос универсальный. числа могут быть целыми и/или вещественными.

Var   s: string;   i,k: integer; begin   write('введите строку'); readln(s);   k: =0;   for i: =1 to length(s) do       case s[i] of       '(': inc(k);       ')': dec(k)       end;   if k=0 then writeln('число открывающих и закрывающих скобок совпадает')   else writeln('число открывающих и закрывающих скобок не совпадает') end. тестовое решение: введите строку(2+3/(3-5)-4*(5+7)) число открывающих и закрывающих скобок совпадает