Уменя что-то типо вопроса по программированию. что нужно сделать с телефоном, чтобы, например, пополнение счета не пришло через терминал? вообще не пришло. ответ нужен​

1. алфавитплеменипидженсостоитизчетырехбукв. аборигенызакодировалисловоbadc сиспользованиемследующейкодовойтаблицы: a b c d 10 0 1 01 ипередалиего, несделавпромежутков, отделяющиходнубуквуотдругой. определитеколичествоспособовпрочтенияпереданногослова. запишитевариантыдекодированиясловавлексикографическомпорядке. решение: строимпорфириан (дереворешений). ответ: количествоспособовпрочтенияпереданногослова 6; вариантыдекодированиясловавлексикографическомпорядке: babcc, badc, bcbbcc, bcbdc, dbbcc, dbdc.

1) var n, odd, even, i, a: integer; begin odd: =0; even: =1; writeln ('введите число n'); read(n); writeln('введите n целых чисел'); for i: =1 to n do begin read(a); if (a mod 2 = 0) then even: =even*a else odd: =odd+a; end; writeln('произведение чётных чисел равно ', even); writeln('сумма нечётных чисел равна ', odd); end. 2)var n, plus, minus, i: integer; a: real; begin plus: =0; minus: =0; writeln ('введите число n'); read(n); writeln('введите n чисел'); for i: =1 to n do begin read (a); if(a > 0) then plus: =plus+1; if (a < 0) then minus: =minus+1; end; writeln('количество положительных чисел равно ', plus); writeln('количество отрицательных чисел равно ', minus); if (plus< minus) then writeln ('отрицательных больше чем положительных на ', minus-plus); if (plus> minus) then writeln ('положительных больше чем отрицательных на ', plus-minus); if (plus=minus) then writeln ('количество положительных равно количеству отрицательных'); end.