Var a, sum, i : integer; s, x : string; sa : real;
begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.
Ответ:
Первый выигрывает при правильной игре
Объяснение:
Состояние "начинающий проигрывает" (НП): выражается формулой: 1 + 4 * n, где n - натуральное число >= 0
или 1, 5, 9 ...
Первому игроку нужно перевести игру в состояние "НП", для этого нужно взять один камень.
Var a, b, k:integer;
begin
readln(a);
readln(b);
if (a+b)>10 then
writeln(2*a*b)
else
if (a>b) then
begin
k:=a;
a:=a+b;
b:=k-b;
end
else
begin
k:=b;
b:=b+a;
a:=k-a;
end;
writeln(a, ' ', b);
end.