Сколько ячеек эт в диапазоне а4; с8?

15 ячеек-это несложно: -)

Вариант для (){}[]  01function  balance(a) {02        for  (var  d = /(\u005b|\u0028|\u007b)[^\u005b\u0028\u007b]*? $/,03          e = {04                "(": /\u0028[^\u007d\u005d]*? \u0029/,05                "[": /\u005b[^\u0029\u007d]*? \u005d/,06                "{": /\u007b[^\u0029\u005d]*? \u007d/07        }, b, c = ! 0; c; ) b = a, a = a.replace(d,  function  (a, b) {08                return  a.replace(e[b],  "")09        }), b == a & & (c = ! 1); 10        return  ! /[\u005b\u005d\u0028\u0029\u007b\u007d]/.test(a)11}; 12  13  14alert(balance("{}({}123(45))")+"\n"+balance("{}{}1234][5")+"\n"+balance("< > < (([]){}< [{{{{}}[[]]}}]> )> "))

Паскаль авс: program ikiru; uses crt; var   y,x: real; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); writeln();       write('введите х '); readln(x);       if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)< =0)           then               writeln('функция y для этого значения х не определена')           else               begin                   y: =2*(cos(3*x)/sin(3*(cos(x))/ln(1+x*x);                   writeln('y=',y: 8: 2);               end; end. пояснения: write('введите х '); readln(x);   - программа просит пользователя ввести х if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)< =0)   - проверка существования функции (функция ctgх не существует, если sinx=0, ln берется только от неотрицательных значений, в знаменателе дроби не может быть 0) если хотя бы одно из условий не выполняется,  выводится ссобщение о том, что функция для этого значения не определена. если все проверки пройдены, программа вычисляет значение функции y и выводит его на экран.