М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ramazan1403
Ramazan1403
28.04.2020 17:38 •  Информатика

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

👇
Ответ:
настя7579
настя7579
28.04.2020
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
4,7(9 оценок)
Открыть все ответы
Ответ:
Kristina1536289
Kristina1536289
28.04.2020

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

ВАЖНО

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

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

4,6(39 оценок)
Ответ:
egekaterina201
egekaterina201
28.04.2020
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.
4,6(74 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ