Вшколе 32 учащихся учатся в двух классах, 5а и 5б. одна из учениц заболела. сообщение "заболевшая девочка учится в 5б классе" содержит 4 бита информации. сколько учащихся учатся в классе 5а?

16 учащихся учатся в 5а

Var      a: byte; begin     write('enter number days, or 0, to exit application-> ');     repeat       readln(a);       if a=1 then writeln('monday');       if a=2 then writeln('tuesday');       if a=3 then writeln('wednesday');       if a=4 then writeln('thursday');       if a=5 then writeln('friday');       if a=6 then writeln('saturday');       if a=7 then writeln('sunday');     until a=0;     writeln('goodbye'); end.

//pascal abc.net v3.0 сборка 1111 var   a,b,c,d: integer; begin   read(a,b);   c: =a;   d: =b;   while (a< > 0) and (b< > 0) do   if a> b then a: =a mod b else b: =b mod a;   writeln(c div (a+b));   writeln('');   writeln(d div (a+b)); end. //а теперь программа для тестов, выведет 1000 результатов в файл var   a,b,c,d,i: integer;   f: text; begin   assign(f,'text.txt');   rewrite(f);   for i: =1 to 1000 do     begin;       a: =random(1,100);   b: =random(1,100);   c: =a;   d: =b;   while (a< > 0) and (b< > 0) do   if a> b then a: =a mod b else b: =b mod a;   writeln(f,c,' ',c div (a+b));   writeln(f,'=': length(inttostr(;   writeln(f,d,' ',d div (a+b));   writeln(f);     end;   close(f); end.