Каким будет значение переменной y после выполнения следующего фрагмента программы? x: ='c'; case succ(x) of '0'..'9': y: =1; 'b': y: =2; 'c': y: =3; 'd': y: =4; 'e': y: =5; else y: =100; end;

Pascal succ(x) = 'd', y=4

l, ls, res = ({'i': 1, 'v': 5, 'x': 10, 'l': 50, 'c': 100, 'd': 500, 'm': 1000},

        ['cd', 'xl', 'iv', 'cm', 'xc', 'ix'], 0)

# l -- словарь значений римских цифр

# ls -- все сочетания "неполных чисел"

a = input()

for i in ls:

# умножаем их количество на цену в l

res += a.count(i) * (-1 * l[i[0]] + l[i[1]])

a = a.replace(i, '') # убираем из строки, досчитывая остальные числа

# подсчитываем оставшиеся  

for i in a:

res += l[i]

print(res)

пример кода на python 3.6.6.

Программа вычисляет значение выражения, состоящего из целых чисел и знаков "+"/"-" между ними. (контроля правильности ввода нет! ) var s,t: string; i,a,b,c: integer; begin write('введите выражение: '); readln(s); a: =0; t: =''; for i: =1 to length(s) do   begin   if (s[i]< > '-')and(s[i]< > '+')and(s[i]< > '=')   then t: =t+s[i]   else begin val(t,b,c); a: =a+b; t: =s[i]; end;   end; writeln(s,a); end. пример: введите выражение: 12+34-10= 12+34-10=36