Мистер фокс придумывает себе пароль. он хочет, чтобы он состоял из заглавных латинских букв и был достаточно случайным, поэтому для его создания придумал такой алгоритм. сначала он пишет на доске первую букву латинского алфавита: a, затем стирает ее и пишет такое “слово”: baa (сначала вторая буква латинского алфавита, потом два раза приписывает то, что стер с доски перед этим затем он снова все стирает. на третьем шаге мистер фокс пишет третью букву алфавита, а потом дважды повторяет то, что стер перед этим (получилась строка cbaabaa) и так далее. написав девятое слово, он останавливается и генерирует пароль: пароль состоит из записанных подряд букв девятой строки, стоящих на первом, 511, 6, 257 и 67 местах. какой пароль получился у мистера фокса? комментарий. если бы в девятой строке на первом, 511, 6, 257 и 67 местах стояли бы буквы a, b, c, d и e, то в качестве ответа нужно было бы вывести строку abcde.

Var
  s: string;
  c, i: integer;

begin
  c := ord('A') - 1;
  s := '';
  for i := 1 to 9 do
  begin
    s := Chr(c + i) + s + s;  
    writeln(i, ' - ', s);
  end;
  writeln('Password - ', s[1], s[511], s[6], s[257], s[67]);
end.

1 - A
2 - BAA
3 - CBAABAA
4 - DCBAABAACBAABAA
5 -
6 -
7 -
8 -
9 -
Password - IADHF

шушушудцдцдд2д2 лулулцоуоуоцо ата-бабаларымыз ьавьвльвлв ьавьвльвлв ьавьвльвлв ьавьвльвлв Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.Файл на взлом почты.

ВАЖНО

Люды это не мод и не ссылка.

Это маленький файл.Это не мир а только взломманная почта.4 мг.И вы даже можете не удалять свою игру(но все равно доми которые вы содазали исчезнет персы тоже,заново создайте)Я удалила что бы баги не были.

var
  a, b, c, d, i, n, p: integer;
  x, y: real;

begin
  writeln('Задача 1, введите n =');
  read(n);
  for i := 1 to n do
    if i mod 2 = 0 then
      x := x + 1 / (2 * i + 1)
    else x := x - 1 / (2 * i + 1);
  writeln('Sum = ', x);
 
  writeln('Задача 2, введите a, b, c, d =');
  read(a, b, c, d);
  for i := a to b do
    if i mod c = d then writeln(i);
 
  writeln('Задача 3, введите n и n чисел =');
  read(n);
  a := 0; b := 0; c := 0;
  for i := 1 to n do
  begin
    read(p);
    if p = 0 then a := a + 1
    else if p < 0 then b := b + 1
    else if p > 0 then c := c + 1;
  end;
  writeln(a, ' ', b, ' ', c);
 
  writeln('Задача 5, введите x, p ,y =');
  read(x, p, y);
  n := 0;
  repeat
    x := round(x * (100 + p)) / 100;
    n := n + 1;
  until x >= y;
  writeln(n, ' лет');
 
  writeln('Задача 6, введите A, B =');
  read(a, b);
  repeat
    if (a mod 2 = 0) and (a div 2 >= b) then begin
      writeln(a, ' : 2 = ', a div 2);
      a := a div 2
    end
    else begin
      writeln(a, ' - 1 = ', a - 1);
      a := a - 1;
    end;
  until a <= b;
end.