Var n:integer;
begin
write('n = ');
readln(n);
if n mod 2 = 0
then n:=3*n else n:=2*n;
writeln('n = ',n);
end.
Пример:
n = 7
n = 14
Все на рисунке во вложении.
2б в 16 с.с. переводишь в 2 с.с. : 101011
101011 в 2 с.с. = 43 в 10 с.с.
111 в N с.с. приравниваешь к 43 в 10с.с.
т.к. во всех разрядах числа 111 стоят единицы, можно число разложить как N^2 + N^1 + N^0 = 43
N^2 + N + 1 =43
N^2 + N = 43-1
а дальше метод подбора
N= 6
Пусть массы корзин k1 k2, ягод - y1 y2
Тогда
k1+y1=a1
k2+y2=b1
k1+y1+y2=a2
k2=b2
k1=a3
k2+y1+y2=b3
Как видишь, математики - полные лохи, количество данных даже избыточно. Возьмем только
y1=a1-a3
y2=b1-b2
Теперь осталось сравнить 2 полученных числа.
Подставляешь .
5*3+4/2 =15+2=17