Запиши верный ответ, если дан алгоритм: a1:=6/(17x)a2:=a1/xa3:=a2/xa4:=a3/xy:=a1+a4

ответ (для переменной используй латинскую раскладку):
x+
​

1-й Рустам

2-я Галина

3-й Эдуард

4-й Яков

5-я Карина

Объяснение:

Всего 5 бегунов.

Бегун       Номер по финишированию

Рустам                        r≠2

Эдуард                      e=r+2

Яков                           a≠1

Галина                     g≠1; g≠5

Карина                      k=a+1

e=r+2 ⇒ r≤5-2=3 ⇒           ( r=1 и e=3 ) или ( r=3 и e=5 )

g≠1; g≠5 ⇒                          g=2 или g=3 или g=4

k=a+1 и a≠1 ⇒ a≤5-1=4  ⇒ ( a=2 и k=3 ) или (a=3 и  k=4 ) или ( a=4 и k=5 )

Только Рустам может быть на 1 месте. Значит Эдуард 3-й. Поскольку 3 место занято, то вариантов ( a=2 и k=3 ) или (a=3 и  k=4 ) не может быть. Значит Яков 4-й и Карина 5-я. Осталось свободное только 2-е место, значит Галина на 2-м.

Var p, q: longint;
  n, i, j, c: integer;
begin 
  // 1
  write('n=');readln(n);
  for i := 1 to n do begin
    q := 1;
    for j := 1 to i do q := q * i;
    p := p + q;
  end;
  writeln ('Значение = ', p);
  
  // 2
  write('Число годовых оценок=');readln(n);
  p:=0;
  for i := 1 to n do begin
    write('оценка: '); readln(c);
    if c = 5 then p := p + 1
    else if c = 2 then p := - 1;
  end;
  writeln(p > 0);
  
  // 3
  n := 20; p := MaxInt;
  for i := 1 to n do begin
    write('Введите высоту здания ', i, ': ');
    readln(c);
    if c < p then p := c;
  end;
  writeln('Минимальная высота: ', p);
  
  //4
  n := 20; p := -1;
  for i := 1 to n do begin
    write('Введите высоту здания ', i, ': ');
    readln(c);
    if c > p then p := c;
  end;
  writeln('Максимальное значение высоты: ', p);
end.