Фамилия брюнета Ивана - Антонов, Борисов, Глебов или Дмитриев. Но
Антонов и Глебов не женаты, а Иван женат на сестре жены Дмитриева.
Поэтому Иван имеет фамилию Борисов.
Егоров блондин, то есть его имя - Борис, Дмитрий, Антон или Глеб. Но так
как человек, фамилия которого совпадает с именем Егорова, женат,
то имена Антон и Глеб исключаются. Кроме того, теперь
можно исключить и имя Борис: в этом случае из условия следовало бы, что
имя Борисова - Егор, а мы уже выяснили, что его зовут Иван.
Методом исключения получаем, что имя Егорова - Дмитрий.
Следовательно, фамилия Бориса совпадает с именем Дмитриева.
Отсюда, кстати, следует, что Борис - не Иванов.
Поэтому для блондина Иванова остаются только два имени - Антон или Глеб.
Но Глеб отпадает по условию (его фамилия не Иванов, а лишь совпадает с
именем Иванова). Значит, Иванова зовут Антон. Тогда Глеб
имеет фамилию Антонов. Соответственно, неженатый Егор - Глебов.
Остались только Василий и Борис, фамилии которых - Васильев и Дмитриев.
Ясно, что фамилия Бориса - Васильев, а Василия - Дмитриев.
Тыква...
памела
апельсин
мандарин
тут куча вариантов
Условие можно записать так:
![(\frac{1}{3})^d * N_1 \ \textless \ N_2](https://tex.z-dn.net/?f=%28%5Cfrac%7B1%7D%7B3%7D%29%5Ed+%2A+N_1+%5C+%5Ctextless+%5C++N_2)
![(\frac{1}{3})^d \ \textless \ \frac{N_2}{N_1}](https://tex.z-dn.net/?f=%28%5Cfrac%7B1%7D%7B3%7D%29%5Ed+%5C+%5Ctextless+%5C+++%5Cfrac%7BN_2%7D%7BN_1%7D)
![log_{ \frac{1}{3} }((\frac{1}{3})^d) \ \textgreater \ \ log_{ \frac{1}{3} }(\frac{N_2}{N_1})](https://tex.z-dn.net/?f=log_%7B+%5Cfrac%7B1%7D%7B3%7D+%7D%28%28%5Cfrac%7B1%7D%7B3%7D%29%5Ed%29++%5C+%5Ctextgreater+%5C+++%5C+log_%7B+%5Cfrac%7B1%7D%7B3%7D+%7D%28%5Cfrac%7BN_2%7D%7BN_1%7D%29)
![d \ \textgreater \ \ log_{ \frac{1}{3} }(\frac{N_2}{N_1})](https://tex.z-dn.net/?f=d++%5C+%5Ctextgreater+%5C+++%5C+log_%7B+%5Cfrac%7B1%7D%7B3%7D+%7D%28%5Cfrac%7BN_2%7D%7BN_1%7D%29)
begin
var d : real;
var N1: real;
var N2: real;
N1 := 0;
N2 := 0;
while (N1 < N2) or (N1 <= 0) or (N2 <= 0) or (N2 / N1 = 1) do begin
writeln('Введите N1 и N2, N1 > N2: ');
readln(N1);
readln(N2);
end;
d := LogN(1.0 / 3.0, N2 / N1);
writeln('Концентрация снизится минимум через, дней: ', d);
end.