ОТВЕТ1: ходы А=+1, Б=х2.
для 1 игрока: >=N/2 ( ходит Б)
для 2 игрока: >=(N/2)-1, если первый сходит А. N/4 <= x < N/2, если первый сходит Б. Объединяем промежутки: (N/2)-1 ( ходит Б)
ОТВЕТ2: например (N/2)-2
Var x,y,R1, R2: integer;
koltoch: byte;
begin
writeln('Введите внутренний радиус R1');
readln(R1);
writeln('Введите внешний радиус R2');
readln(R2);
koltoch:= 0;
x := -R2;
repeat
y := -R2;
repeat
if (sqrt(sqr(x) + sqr(y)) > R1)
and (sqrt(sqr(x) + sqr(y)) < R2) then
begin
koltoch:= koltoch + 1;
writeln (x,' ',y);
end;
y := y + 1;
until y = R2;
x := x + 1;
until x = R2;
writeln(koltoch);
readln
<span>end.</span>
Ответ: п<span>ри наборе текста рассказа.</span>
Компьютер ................................
Ответ:
паскаль
1)var x,y :integer;
begin
readln(x);
if x<=0 then begin
y:=x*x;
writeln(y);
end else if x<4 then begin
y:=2*x;
writeln(y);
end else writeln('значение x не удовлетворяет условию');
end.
2)var a,b,y :integer;
begin
readln(a);
readln(b);
if a=1 then begin
y:=a+b;
end else
y:=a-b;
writeln(y);
end.