29. составьте логическую функцию, соответствующую далее условиям. предположим, что нужно вывести на экран содержимое ячейки е5, если она содержит число строго между 10 и 100 и сообщение "значение вне интервала" в противном случае. 30. законодательство о финансах и кредите по делам, рассматриваемым в судах общей юрисдикции, государственная пошлина взимается в следующих размерах: с исковых заявлений имущественного характера при цене иска: до 1 млн. рублей – 5 процентов от цены иска свыше 1 млн. рублей до 10 млн. рублей – 50 тыс. рублей + 4 процента от суммы свыше 1 млн. рублей с логических функций ms excel составьте формулу вычисления государственной пошлины, еслицена иска заявителя равна 700000 р.

29.

см. решение во вложении.

 

30.

в условии не сказано, какая пошлина при сумме иска свыше 10 млн рублей. допустим это будет 410 тыс. руб + 3% от суммы свыше 10 млн.

тогда формула иммет вид:

=если(e5< 1000000; e5*0,05; if(and(e5> 1000000; e5< =10000000); 50000+(e5-1000000)*0,04; 410000+e5*0,03))

(в ячейку е5 вводится цена иска)

 

при цене иска заявителя 700000 р, сумма пошлины равна 35000 руб.

 

см. решение во вложении.

{1} const   n = 5; var   a: array [1..n] of integer;   i,k,x,l: integer;   t: boolean; begin   for i : = 1 to n do read(a[i]);   k : = 0;   for i : = 1 to n do   begin   t : = true;   x : = a[i]; if x < 0 then x : = -x;   l : = 1;   while l < = x do l : = l*2; l : = l div 2;   while t and (l > 1) do       begin       t : = x > = l;       if t then x : = x - l;       t : = t = (x mod 2 < > 0);       x : = x div 2;       l : = l div 4;       end;   if t then k : = k + 1   end;   write(k) end. {2} const   n = 10; var   a,d: array [1..n] of integer;   i,j,k: integer; begin   for i : = 1 to n do   a[i] : = 100 + random(900);   for i : = 1 to n do   begin   d[i] : = 0;   for j : = 1 to a[i] do       if a[i] mod j = 0 then       d[i] : = d[i] + 1;   end;   for i : = 1 to n-1 do   begin   k : = i;   for j : = i + 1 to n do       if d[j] < d[k] then k : = j;   j : = a[k];   a[k] : = a[i];   a[i] : = j;   j : = d[k];   d[k] : = d[i];   d[i] : = j;   end;   for i : = 1 to n do   write(a[i],' ') end. {3} const   n = 10;   l = 3; var   a: array [1..n] of integer;   m: array [1..l] of integer;   i,j,k: integer; begin   for i : = 1 to n do   begin   a[i] : = random(1001);   write(a[i],' ')   end;   writeln;   for i : = 1 to l do   m[i] : = -1;   for i : = 1 to n do   begin   j : = 1;   while j < = l do       begin       if (a[i] = m[j]) then j : = l else       if (a[i] < m[j]) or (m[j] = -1) then           begin           for k : = l downto j+1 do               m[k] : = m[k-1];           m[j] : = a[i];           j : = l           end;       j : = j + 1       end;   end;   for i : = 1 to l do   if m[i] < > -1 then write(m[i],' ') end.

0111  1111       0001  1100       1000  0100     0110  1110     (в2сс)

    7       f           1       c           8         4           6       e       ( в 16сс)

7f= 7*16+15=127 (10сс)

1с =16+12=28

84 (16сс) =8*16+4=132

6е =6*16+14=110    

      ip-адрес:

127.28.132.110