по информатике, хоть 3 номера ...

https://programforyou.ru/calculators/postroenie-tablitci-istinnosti-sknf-sdnf

Объяснение:

зайди на сайт там введи данные и получи ответ

pascal:

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)