Саша- Самойлов Володя- Левин Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа) Юра- Богачёв
номер 2
переливаем 2 литра в 2-ух литровую банку из 6-ти литровой (1 переливание) (получилось и у той и у другой мёда по 3 литра) Из двух литровой доливаем литр, который вмещается в 4-ёх литровую банку (2 переливание) последний литр из 2-ух литровой переливаем в 6ти литровую (3 переливания)
почему-то решилось за 3 переливания
номер 3
2,4,8,10,20,22,44,46...
Прибавление 2, умножение на 2, прибавление 2 и так далее
3,6,12,15,30, 33...
Прибавление 3, умножение на 2, прибавление 3 и т.д
1,3,4,12,13, 39, 40, 120, 121...
Умножение на 3, прибавление 1, умножение на 3 и т.д
Const N = 13; Var A:array[1..N] of integer; i,Min:integer; Begin Randomize; Min:=1; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); if A[Min]>A[i] then Min:=i; End; WriteLn; WriteLn(Min) End.
Const N = 13; Var A:array[1..N] of integer; i,j,Min,B:integer; Begin Randomize; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); End; WriteLn; WriteLn; For i:= 1 to N do Begin Min:=i; For j:=i+1 to N do if A[Min]>A[j] then Min:=j; B:=A[Min]; A[Min]:=A[i]; A[i]:=B; Write(A[i],' ') End; End.
Const N = 13; Var A:array[1..N] of integer; i,j,Max,B:integer; Begin Randomize; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); End; WriteLn; WriteLn; For i:= 1 to N do Begin Max:=i; For j:=i+1 to N do if A[Max]<A[j] then Max:=j; B:=A[Max]; A[Max]:=A[i]; A[i]:=B; Write(A[i],' ') End; End.
mod - остаток от деления
div - целая часть от деления
30 mod 4
=2 (28/4)
45 div 7
=6 (42/7)
35 div 2 mod 6=5 (34/2=17, 12/6)
Схема:на схеме вместо n^2 можно sqr(n), n^3 - sqr(n)*n