Определите значение переменной а после выполнения алгоритма: Program a_b; var a, b:real; begin a := 6; b: 2, b:= a/2*b; a := 2*a+3*b; write(a); end. В ответе укажите одно целое число - значение переменнойа. BEeare npasHIEEDM BEDMBHI OTaera.

закодированный текст: byck is my dog.

письменность китая похожа на египетскую письменность.

так как основана на иероглифах.

type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin  randomize;   n: =10;   for i: = 1 to n do begin      x[i]: =random(n*10)- 10*n div 2 ;       write(x[i]: 4);       if i mod 10=0 then writeln;   end;     min: =1;   max: =1;   for i: = 1 to n do begin      if x[i]< x[min] then min: =i;       if x[i]> x[max] then max: =i;   end;   i: =x[min];   x[min]: =x[max];   x[max]: =i;         writeln;   for i: = 1 to n do begin      write(x[i]: 4);       if i mod 10=0 then writeln;   end;   end.

a=gets()

n=0

while a> 0 do

  n=n*10+a%2

  a=a/2

end

print(a)

блок схемы не умею