5. три цеха a, b, c обеспечивает электроэнергией небольшая электростанция, на которой установлены два генератора x и y. если в энергии нуждается один из трех цехов, то достаточно включить генератор y. если же два цеха одновременно – x. снабжение всех трех цехов одновременно обеспечивается совместной работой генераторов x и y. необходимо построить такой автомат, который, получая заявки от цехов a, b и c, может разумно перераспределять нагрузку на генераторы.

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.

системный блок

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65