Сестра мужа точно инженер Сын точно слесарь Муж может быть только учителем или юристом Отсюда следует, что экономист либо жена либо отец жены. Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-) Тогда получается, что - отец жены - экономист - жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера - муж - учитель, т.к. не кровный родственник жене-юристу.
ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.
Из-за дурацкого сбоя этого сервиса при сохранении ответа пропал получасовой набор формул в модераторов удалить этот ответ.
P.S. Набираешь ответ - как по минному полю идешь. При нажатии "сохранить" неизвестно что произойти может. Например, при случайном нажатии "сохранить ответ" (каждый может ошибиться) нет анализа, того, что в поле набора данных не пусто и весь этот набор формул мгновенно "улетает в никуда". Я уж не говорю о постоянных "Вы были отключены от сервера".
И еще. Поскольку автор вопроса не виноват, даю два "голых" (без формул) решения.
1. Рекурсивная программа (как не надо решать подобные задачи)
{ рекурcивная программа } function prod(a,b:integer):real; var i:integer; p:real; begin p:=1; for i:=a to b do p:=p*i; prod:=p end;
function pow2(n:integer):integer; var i,p:integer; begin p:=1; for i:=1 to n do p:=p*2; pow2:=p end;
function an(n:integer):real; begin if n=1 then an:=0.5 else an:=an(n-1)*n/prod(pow2(n-1)+1,pow2(n)) end;
var s:real; i,n:integer; begin Write('n='); Read(n); s:=0; for i:=1 to n do s:=s+an(i); Writeln(s) end.
Пример: n=4 0.58348214285829
2. А вот рекуррентная, которую можно написать, если немного подумать.
{ рекуррентная программа } var a,p,s:real; i,j,n,lo,hi:integer; begin Write('n='); Read(n); a:=0.5; s:=a; lo:=1; hi:=2; for i:=2 to n do begin p:=1; lo:=hi+1; hi:=hi*2; for j:=lo to hi do p:=p*j; a:=a*i/p; s:=s+a end; Writeln(s) end.
Сын точно слесарь
Муж может быть только учителем или юристом
Отсюда следует, что экономист либо жена либо отец жены.
Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-)
Тогда получается, что
- отец жены - экономист
- жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера
- муж - учитель, т.к. не кровный родственник жене-юристу.
ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.
P.S. Набираешь ответ - как по минному полю идешь. При нажатии "сохранить" неизвестно что произойти может. Например, при случайном нажатии "сохранить ответ" (каждый может ошибиться) нет анализа, того, что в поле набора данных не пусто и весь этот набор формул мгновенно "улетает в никуда".
Я уж не говорю о постоянных "Вы были отключены от сервера".
И еще. Поскольку автор вопроса не виноват, даю два "голых" (без формул) решения.
1. Рекурсивная программа (как не надо решать подобные задачи)
{ рекурcивная программа }
function prod(a,b:integer):real;
var
i:integer;
p:real;
begin
p:=1;
for i:=a to b do p:=p*i;
prod:=p
end;
function pow2(n:integer):integer;
var
i,p:integer;
begin
p:=1;
for i:=1 to n do p:=p*2;
pow2:=p
end;
function an(n:integer):real;
begin
if n=1 then an:=0.5
else an:=an(n-1)*n/prod(pow2(n-1)+1,pow2(n))
end;
var
s:real;
i,n:integer;
begin
Write('n='); Read(n);
s:=0;
for i:=1 to n do s:=s+an(i);
Writeln(s)
end.
Пример:
n=4
0.58348214285829
2. А вот рекуррентная, которую можно написать, если немного подумать.
{ рекуррентная программа }
var
a,p,s:real;
i,j,n,lo,hi:integer;
begin
Write('n='); Read(n);
a:=0.5; s:=a; lo:=1; hi:=2;
for i:=2 to n do begin
p:=1; lo:=hi+1; hi:=hi*2;
for j:=lo to hi do p:=p*j;
a:=a*i/p;
s:=s+a
end;
Writeln(s)
end.
Пример
n=4
0.58348214285829