Вводится последовательность из n целых элементов. для каждого элемента последовательности вывести на экран количество цифр и количество делителе. написать процедуру, которая рассчитает оба параметра.

эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :

111100% =  60% девочек

1100 = 12 мальчиков

12 мальчиков составляют 40% учащихся в классе

составим пропорцию

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

ответ. в классе 30 учеников.

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

может быть крик?

решение должно иметь од 20 до 5000

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.