Уисполнителя вычислитель имеется две команды: 1 прибавь 1, 2 возведи в квадрат, первая из этих команд увеличивает число на экране на 1, вторая возводит в квадрат, программа для исполнителя вычислитель это последовательность номеров команд. например, 22111-это программа : возведи в квадрат возведи в квадрат прибавь 1 прибавь 1 прибавь 1 с этой программы какой команды можно число 5 преобразовать в число 2500, используя максимум 6 команд? 1)122121 2)12211 3)112121 4)11212

5 + 1 = 6
6 + 1 = 7
7 * 7 = 49
49 + 1 = 50
50 * 50 = 2500

1 1 2 1 2

ответ: 4

// №1 а)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a, x:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R:real;

begin

  r := 0;

  write('n = '); readln(n);

  for i := 1 to n do

  begin

    r := r + Pow(-1, i mod 2) * (i + 1) / Fact(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №1 б)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Summ(n:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 2 to n do

    rez := rez + 1/i;

  Summ := rez;

end;

 

var

  n, i:integer;

  R:real;

begin

  r := 0;

  write('n = '); readln(n);

  for i := 1 to n do

  begin

    r := r + Fact(i)/Summ(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №2 а)

 

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a:real; x:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R, x:real;

begin

  r := 0;

  write('n = '); readln(n);

  write('x = '); readln(x);

  for i := 1 to n do

  begin

    r := r + Pow(x, i) / Fact(i);

  end;

  writeln('R = ', r);

end.

 

 

 

// №2 б)

function Pow(a:real; x:integer):real;

var

  i:integer;

  rez:real;

begin

  rez := 1;

  for i := 1 to x do

    rez := rez * a;

  Pow := rez;

end;

 

var

  n, i:integer;

  R, x:real;

begin

  r := 1;

  write('n = '); readln(n);

  write('x = '); readln(x);

  for i := 1 to n do

  begin

    r := r * (i / (i + 1) - Pow(cos(x), i)) ;

  end;

  writeln('R = ', r);

end.

 

Александр Сергеевич Пушкин родился 26 мая 1799 года в Москве в дворянской помещичьей семье (отец его был майор в отставке) в день праздника Вознесения.

В тот же день у императора Павла родилась внучка, в честь которой во всех церквах шли молебны и гудели колокола. Так, по случайному совпадению день рождения русского гения был ознаменован всеобщим народным ликованием. Символично и место рождения поэта г. Москва - самое сердце русской жизни, России.

Будущего поэта крестили 8 июня в церкви Богоявления в Елохове.

Отец Пушкина Сергей Львович и мать Надежда Осиповна, урожденная Ганнибал, были дальними родственниками. Пылкие страсти, руководившие предками как по отцовской, так и по материнской линии, оказали свое влияние и на Пушкина.

Семья (кроме Александра, были еще дети Ольга и Лев) принадлежала к самой образованной части московского общества. только ошибки сделай сама