Определи, какому десятичному числу соответствует двоичный код 00110100

52 - ответ на твой вопрос

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

укрытся одеялом и лечь спать,   и пить лекартва и остаться дома