Решить ! мой богатый дядюшка подарил мне один доллар в мой первый день рождения. в каждый день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. написать программу, указывающую, к какому дню рождения подарок превысит 100$.

Program  chik; var w,q,s,n,i,h: longint; begin s: =1; q: =1; h: =1; w: =1; while w< 100 do begin q: =q+1; h: =h+1; s: =s*2+q; w: =w+s; writeln(w); end; writeln(w,' ',h); end.

  program project2; {$apptype console} uses  sysutils;     var i,x,y,z, dwa,tri,shetire,pati: integer; begin    writeln('student fediya=');     readln(i);     writeln('student sungat=');   readln(x);   writeln('student alex=');     readln(y);   writeln('student halif=');   readln(z);     case i of    2: inc(dwa);     3: inc(tri);     4: inc(shetire);     5: inc(pati);     end;     begin     case x of    2: inc(dwa);     3: inc(tri);     4: inc(shetire);     5: inc(pati);   end;   end;     begin       case y of    2: inc(dwa);     3: inc(tri);     4: inc(shetire);     5: inc(pati);     end;     end;     begin        case z of    2: inc(dwa);     3: inc(tri);   4: inc(shetire);     5: inc(pati);     end;       end;   writeln(#13#10'dwa: ', dwa, #13#10'tri: ', tri, #13#10'shetire: ', shetire, #13#10'pati: ', pati);   readln;     { todo -ouser -cconsole main : insert code here }end.

1) молоко: не в бутылке (по условию ); не в стакане, т.к. " стакан  стоит  между   банкой и сосудом с  молоком"; не в банке, потому что: " между банкой  и   сосудом с  молоком "; отсюда следует, что  молоко в кувшине. 2) вода: не в кувшине (там молоко), не в бутылке (по условию ), не в банке (по условию ); получается, что вода в стакане.3) лимонад: не кувшине (там молоко); не в стакане (там вода); не в кувшине, т.к. "сосуд с лимонадом стоит между кувшином и.."; получается, что лимонад в бутылке.4) квас в банке.ответ: в бутылке лимонад, в стакане вода,  в кувшине молоко, в банке квас.