Uses Drawman;
procedure Berry;
begin
field(14, 13);
topoint(2, 1);
pendown;
topoint(1, 2);
topoint(1, 3);
topoint(2, 4);
topoint(3, 4);
topoint(4, 3);
topoint(4, 2);
topoint(3, 1);
topoint(2, 1);
penup;
topoint(6, 1);
pendown;
topoint(5, 2);
topoint(5, 3);
topoint(6, 4);
topoint(7, 4);
topoint(8, 3);
topoint(8, 2);
topoint(7, 1);
topoint(6, 1);
penup;
end;
procedure Leaf;
begin
topoint(3,4);
pendown;
topoint(6,10);
topoint(4,12);
topoint(2,12);
topoint(4,10);
topoint(8,10);
topoint(10,8);
topoint(8,8);
topoint(6,10);
topoint(6,4);
end;
begin
Berry;
Leaf;
end.
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=ReadInteger('k=');
var a:=ReadArrInteger('Вводите оценки:',k);
var m:=a.Average;
Writeln('Средняя оценка по классу: ',m:4:2);
Writeln('Учеников с оценкой выше средней: ',a.Where(x->x>m).Count)
end.
N = 28
K = 28
I = ?
Решение:
N = 2^i
28 = 2^i
i = 5 бит (ближайшая степень после числа 28)
I = K * i
I = 28 * 5 = 140 бит
F(4) = F(3) * (3 * 4 - 2) = F(3) * 10 (подставляем) = 28 * 10 = 280
F(3) = F(2) * (3 * 3 - 2) = F(2) * 7 (подставляем) = 4 * 7 = 28
F(2) = F(1) * (3 * 2 - 2) = 1 * 4 = 4
Когда нашли F(2) подставляем его в F(3)
Когда нашли F(3) подставляем его в F(4)
Ответ: 280