Дано целое число, записанное в десятичной системе счисления в виде строки, возможно, с ведущими нулями. Участники делают ходы по очереди. Ход заключается в удалении из записи числа одной цифры так, что после этого действия получается либо чётное число, либо пустая строка. Если перед началом хода строка пуста или ход сделать нельзя, то игрок, который должен сделать ход, проигрывает. Определите, кто выиграет при оптимальной игре обоих сторон, если игрок А ходит первым.
Входные данные
Входной файл INPUT.TXT содержит целое десятичное число, состоящее не более чем из 104 цифр, возможно, с ведущими нулями.
Выходные данные
В выходной файл OUTPUT.TXT выведите «А», если выиграет игрок А, или «В», если выиграет игрок В.
n,k,i:integer;
begin
for n:=1 to 2 do
begin
writeln('Введите строку ',n,':');
readln(s);
k:=0;
for i:=1 to length(s) do
begin
case s[i] of
'[': k:=k+1;
']': k:=k-1;
end;
end;
if k=0
then writeln('В строке ',s,' количество [ и ] одинаково')
else writeln('В строке ',s,' количество [ и ] не одинаково');
end;
end.
Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
b,c: string;
d,x,y: real;
i,j: integer;
begin
b:='ABCD'; c:='xy';
writeln('трапеция ABCD');
for i:=1 to 4 do
begin
writeln('координаты точки ',b[i],': ');
for j:=1 to 2 do
begin
write(' ',c[j],i,' = ');
readln(a[j,i]);
end;
end;
x:=(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2;
y:=(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2;
d:=sqrt(x*x+y*y);
writeln('длина средней линии: ',d:5:2);
end.
ввод - вывод
трапеция ABCD
координаты точки A:
x1 = 3
y1 = 2
координаты точки B:
x2 = 5
y2 = 5
координаты точки C:
x3 = 9
y3 = 5
координаты точки D:
x4 = 10
y4 = 2
длина средней линии: 5.50