1) var n: integer;
2) <span>_а
1) A:=2;
2) readln (x);
read (x);
3) ,
4) write (x);
writeln (x);
5) +,-,*,/,</span>
Так здесь все легко если n четное то победит первый при любой игре если n нечетное то победит второй
может ты задачу не до конца дослушал
Поскольку 2^5=32, значит такое сообщение содержит 5 бит информации
var
n : integer;
S : decimal;
function fac(n : integer) : decimal;
begin
result := 1;
for var i := 1 to n do result := result * i;
end;
begin
write('введите n = ');
readln(n);
for var i := 1 to n do S := S+fac(i);
writeln('S=', S);
end.
<span>#include <iostream></span>
#include <ctime>
#include <cstdlib>
using namespace std;
int main()
<span>{ srand(time(NULL));</span>
<span> const int N(10);</span>
<span> int a[N], c(0), b(100), count(0);</span>
<span> for (int i(0); i<N;i++){</span>
<span> a[i]=c+rand()% (b-c+1);</span>
<span> count+=a[i];</span>
<span> }</span>
<span> for (int i(0); i<N; i++){</span>
<span> cout << a[i]
<< " ";</span>
<span> }</span>
Cout << count/float(N);
<span>
return 0;</span>
}