1. определите значение переменной аb: = 4а: = 14 - b* 2а: = a + a/32. определите значение переменной ба: = 5b: = a* 2а: = (b+a) /2b: = 4 *a - b3. определите значение переменной аа: = 6b = 4b : = a/3+bа: =5*a-2*b​

8; 32, 5; 18...

Объяснение:

1.

b: = 4

а: = 14 - 4 * 2 = 6

а: = a + a/3 = 8

ОТВЕТ: 8

2.

а: = 5

b: = 5 * 2 = 10

а: = (10 + 5) / 2 = 7, 5

b: = 4 * 10 - 7, 5 = 32, 5

ОТВЕТ: 32, 5

3.

а: = 6

b: = 4

b: = 6/3 + 4 = 6

а: =5 * 6 - 2 * 6 = 18

ответ: 18

Последовательности длиной 7, содержащей 5 букв А могут быть следующими:
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.