Pascal ABC Буду очень благодарен, если с решением программы) вот само задание: "Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются только знаки "+" или "-" Выражение вводится как символьная строка, все числа целые." Пример: Введите выражение: 12-3+45 ответ НАПИШИТЕ САМИ ПРОГРАММУ, А НЕ СКОПИРУЙТЕ С СОСЕДНЕГО САЙТА

program nom1;

var x,y,z,a:real;

begin

write('Введите x y z'); readln(x,y,z);

a:=x-y+z;

write('a=',a);

end.

Объяснение:

def bracket(a):

   test_list = []

   for i in a:

       if i == "(" or i == ")":

           test_list.append(i)

   opening_bracket= test_list.count("(")

   closing_bracket = test_list.count(')')

   if opening_bracket != closing_bracket:

       print("Неправильные количество скобок!\t'(' = {}   ')' = {}".format(

           opening_bracket,closing_bracket

       ))

   else:print('Количество открывающих скобок, равно количеству закрывающих скобок')

text = '( текст для тестирования ( программы и ) для обработки ( данных) '

bracket(text)

text_1 = ")))()()()()())())()(())()))()()()()(("

bracket(text_1)

text_2 = ""

bracket(text_2)

Вивод:

Неправильные количество скобок! '(' = 3   ')' = 2

Неправильные количество скобок! '(' = 30   ')' = 25

Количество открывающих скобок, равно количеству закрывающих скобок

# (a,b,c)= [int(x) for x in input().split()]

bin_num="1101011"

dec_num=int(bin_num,2)

test1=[10,34,65]

test2=[76,18,55]

test3=[81,75,20]

print(dec_num)

for x in test1:

   if(x>dec_num):

       print(x," больше, чем ", dec_num)

   else:

       print(dec_num," больше, чем ", x)

for x in test2:

   if(x>dec_num):

       print(x," больше, чем ", dec_num)

   else:

       print(dec_num," больше, чем ", x)

for x in test3:

   if(x>dec_num):

       print(x," больше, чем ", dec_num)

   else:

       print(dec_num," больше, чем ", x)