Поместник нанял 2 крестьян и обещал отдать им 5 мер овса . он выдал им полный мешок 10 мер и два пустых по 7 и 3 мер . как крестьянам разделить овес так , чтобы у каждого было 5 мер овса
Рассыпаем весь овёс в 2 мешка, потом пересыпаем 3 меры в 10мерный мешок, потом из 7мимерного в 3мерный отсыпаем 3 меры и остается 4. потом эти 4 ровно пополам делишь и отсыпаешь в 10мерный а из 3мерного насыпаешь в 7мименгый в итоге и там и там по 5
Салат оливье. ингредиенты 1 баночка зеленого горошка (400г) 300 г мяса 4 яйца 350 г картофеля 100 г соленых или маринованных огурцов 150 г лука соль майонез алгоритм приготовления: 1.мясо отварить до готовности (варить около 40 минут после закипания) . 2.остудить. 3.лук мелко покрошить. 4.залить его кипятком и оставить на 10 минут, затем воду слить, лук промыть в холодной воде. 5.мясо нарезать кубиками. 6.картофель почистить, нарезать кубиками. 7. яйца мелко покрошить. 8.огурцы мелко нарезать. 9.смешать картофель, мясо, лук, горошек (воду слить) , яйца, огурцы. 10.посолить. 11. заправить майонезом. 12. украсить по вкусу, например зеленым горошком
Uses CRT; Type a_type=array[1..50,1..50] of integer; Var i,j,n:integer; a:a_type; t:boolean; {логическая переменная true (правда) или false (ложь)} x,y:integer; Label 1; {метка} Procedure Print(n:integer; a:a_type); {процедура вывода} Var i,j:integer; Begin for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln(''); end; end; Procedure WinSh(x1,y1,x2,y2,col1,col2:word); {процедура вывода окна} Begin TextBackGround(black); Window (x1+1,y1+1,x2+1,y2+1); {тень - черный прямоугольник} ClrScr; TextBackGround(col1); Window(x1,y1,x2,y2); ClrScr; TextColor(col2); {рисование рамки} GotoXY(2, 1); write('г'); for i:=1 to x2-x1-2 do write('='); GotoXY(x2-x1,1); write('='); GotoXY(2,y2-y1+1); write('L'); for i:=1 to x2-x1-2 do write('='); GotoXY(x2-x1,y2-y1+1); write('-'); for j:=2 to y2-y1 do begin GotoXY(2,j); write('¦'); GotoXY(x2-x1,j); write('¦'); end; End; Procedure OddMagic(n:integer; var a:a_type); {Процедура формирования магического квадрата при нечетном n. Описание алгоритма в сопроводительной записке } Var i,j,k:integer; p,l:integer; Begin for i:=1 to n do for j:=1 to n do a[i,j]:=0; j:=n div 2 +1; p:=sqr(n); i:=1; a[i,j]:=1; for l:=2 to p do begin i:=i-1; j:=j+1; if (i=0) and (j<>n+1) then i:=n; if (j=n+1) and (i<>0) then j:=1; if ((i=0) and (j=n+1)) or (a[i,j]<>0) then {важен порядок условий!} begin i:=i+2; j:=j-1; end; a[i,j]:=l; end; end; Procedure Two (n:integer; var a:a_type); {Процедура построения квадрата при n обычной четности: n=6,10,14,18...} Var u,i,j,k,m,z:integer; b:a_type; Begin u:= n div 2; m:=(u-1) div 2; OddMagic(u,b); {вызов процедуры построения квадрата при нечет-ном u} k:=u*u; for i:=1 to n do for j:=1 to n do begin if (i>=1) and (i<=u) and (j>=1) and (j<=u) then a[i,j]:=b[i,j]; if (i>=u+1) and (i<=n) and (j>=u+1) and (j<=n) then a[i,j]:=b[i-u,j-u]+k; if (i>=1) and (i<=u) and (j>=u+1) and (j<=n) then a[i,j]:=b[i,j-u]+2*k; if (i>=u+1) and (i<=n) and (j>=1) and (j<=u) then a[i,j]:=b[i-u,j]+3*k; end; for i:=1 to u do if i=u div 2+1 then begin j:= u div 2+1; for k:=1 to m do begin z:=a[i,j]; {обмен данными} a[i,j]:=a[i+u,j]; a[i+u,j]:=z; j:=j-1 end; end
