Семеро друзей антонов, борисов, васильев, глебов, дмитриев, егоров и иванов - по странному стечению обстоятельств имеют " имена, причем не один из них не является "тезкой своей фамилии. кроме того, о них известно следующее: a. все кроме антонова и глебова, уже женаты. b. невесте егора не нравится фамилия ее жениха c. фамилия глеба совпадает с именем иванова d. жены дмитриева и ивана - родные сестры e. тот, чье имя совпадает с фамилией бориса, женат, и его фамилия совпадает с именем егорова f. иван, егор и василий – брюнеты g. остальные четверо в числе которых, иванов, егоров и васильев – блондины. как фамилия василия? если можно в виде таблицы решение

Фамилия брюнета ивана - антонов, борисов, глебов или дмитриев. но антонов и глебов не женаты, а иван женат на сестре жены дмитриева. поэтому иван имеет фамилию борисов. егоров блондин, то есть его имя - борис, дмитрий, антон или глеб. но так как человек, фамилия которого совпадает с именем егорова, женат, то имена антон и глеб исключаются. кроме того, теперь можно исключить и имя борис: в этом случае из условия следовало бы, что имя борисова - егор, а мы уже выяснили, что его зовут иван. методом исключения получаем, что имя егорова - дмитрий. следовательно, фамилия бориса совпадает с именем дмитриева. отсюда, кстати, следует, что борис - не иванов. поэтому для блондина иванова остаются только два имени - антон или глеб. но глеб отпадает по условию (его фамилия не иванов, а лишь совпадает с именем иванова). значит, иванова зовут антон. тогда глеб имеет фамилию антонов. соответственно, неженатый егор - глебов. остались только василий и борис, фамилии которых - васильев и дмитриев. ясно, что фамилия бориса - васильев, а василия - дмитриев.

#include < iostream> using namespace std; int main(){     int n;     int k;     cin> > n;     k=0;     for(int i=1; i< 4; i++){             if(n%10==4){             k++;             }             n=n/10;             }     cout< < k;     cin.get();     cin.get();     return 0; }

Var ar: array of integer; ar2: array of integer; k,i,m: integer; begin; randomize; writeln('введите m'); readln(m); setlength(ar,m+1); setlength(ar2,m+1); writeln('введите массив с: '); for i: =1 to m do begin;   readln(ar[i]);   if ar[i]< 0 then inc(k); end; writeln('количество отрицательных=',k); writeln('массив k: '); for i: =1 to m do   begin;   ar2[i]: =random(10);   write(ar2[i]: 4);   if ar2[i] mod 2=0 then ar2[i]: =k;   end; writeln; writeln('финальный массив k: '); for i: =1 to m do  write(ar2[i]: 4); end.