Вводятся х и y. если хотя бы одно из этих чисел положительно, то найти их произведение. иначе – найти их сумму. и желательно блок схему

X, y: integer; begin readln(x, y); if (x > 0) or (y > 0)   then writeln(x * y) else writeln(x + y); end. с рисованием туго тут уж сам.

Информационный объём одного символа в алфавите вычисляется по формуле n=2^i,где n количество символов в алфавите, а i - информационный объём одного символа, следовательно, для алфавита: в алфавите 33 буквы(если там 32, то 2^5=32) а ближайшая степень двойки=5 тогда нам нужно взять на одну степень больше чтобы закодировать этот символ, тогда 2^6=64 откуда следует что для алфавита инф. объём одного символа=6 бит по аналогии с латинским, в нём 26 букв, 2^4=16 следовательно 2^5=32 и тогда для латинского алфавита инф. объём=5 бит(кол - во букв брал из интернета так что посмотри там принцип я тебе рассказал)

const

      MAX = 20;

    var

      s:string;

      stack:array[1..MAX] of string;

      top:integer;

      i:byte;

   

    procedure Push(ch:string);

    begin

      if top>=MAX then WriteLn('Stask full')

      else

      begin

        stack[top]:=ch;

        top:=top+1;

      end;

    end;

   

    function Pop:string;

    begin

      top:=top-1;

      if top<1 then

      begin

        WriteLn('Stack underflow');

        top:=top+1;

      end

      else Pop := stack[top];

    end;

begin

top:=1;

s:='<asdf<asdf>asdf>';//правильная строка

for i:=1 to length(s) do

begin

   if s[i]='<' then Push('<');

   if s[i]='>' then

       if Pop()<>'<' then WriteLn('Ошибка!');

end;

if top<>1 then WriteLn('Ошибка!');

top:=1;

s:='<asdf<asdfasdf>';//не правильная строка

for i:=1 to length(s) do

begin

   if s[i]='<' then Push('<');

   if s[i]='>' then

     if Pop()<>'<' then WriteLn('Ошибка!');

end;

if top<>1 then WriteLn('Ошибка!');

end.

Объяснение: