Регистрация
Ксюхахаха
27.07.2020 10:59
Информатика
Есть ответ 👍

Я НЕ ШАРЮ В ЭТОЙ БУРДЕ! -_- У исполнителя Квадратор две команды, которым присвоены номера: 1. прибавь 3; 2. возведи в квадрат. Составьте алгоритм получения из числа 4 числа 58, содержащий не более 5 команд. В ответе запишите только номера команд.
2 задание.
У исполнителя Квадратор две команды, которым присвоены номера: 1. вычти 1; 2. возведи в квадрат. Составьте алгоритм получения из числа 2 числа 64, содержащий не более 5 команд. В ответе запишите только номера команд.
3 задание.
У исполнителя Делитель две команды, которым присвоены номера: 1. раздели на 2; 2. вычти 1. Составьте алгоритм получения из числа 27 числа 3, содержащий не более 5 команд. В ответе запишите только номера команд.

111
500
Посмотреть ответы 2

Ответы на вопрос:

витя10
витя10
4,5(35 оценок)

1) 12111

2) 21212

3) 21211

Объяснение:

1)

Команда 1: Прибавь 3

Команда 2: Возведи в квадрат

Нужно из 4 получить 58

1) 4 + 3 = 7 [Команда 1]

2) 7² = 49 [Команда 2]

3) 49 + 3 = 52 [Команда 1]

4) 52 + 3 = 55 [Команда 1]

5) 55 + 3 = 58 [Команда 1]

2)

Команда 1: Вычти 1

Команда 2: Возведи в квадрат

Нужно из 2 получить 64

1) 2² = 4 [Команда 2]

2) 4 - 1 = 3 [Команда 1]

3) 3² = 9 [Команда 2]

4) 9 - 1 = 8 [Команда 1]

5) 8² = 64 [Команда 2]

3)

Команда 1: Раздели на 2

Команда 2: Вычти 1

Нужно из 27 получить 3

1) 27 - 1 = 26 [Команда 2]

2) 26 ÷ 2 = 13 [Команда 1]

3) 13 - 1 = 12 [Команда 2]

4) 12 ÷ 2 = 6 [Команда 1]

5) 6 ÷ 2 = 3 [Команда 1]

sofiiishtepa
sofiiishtepa
4,6(29 оценок)

program p1;

uses crt;

var

  i, n, m, min: integer;

begin

  clrscr;

  write('длина последовательности: ');

  readln(n);

  read(min);

  for i : = 2 to n do

  begin

    read(m);

    if m < min then

      min : = m;

  end;

  writeln(min);

  readkey;

end.

program p2;

uses crt;

var

  i, n, m, max, k: integer;

begin

  clrscr;

  write('длина последовательности: ');

  readln(n);

  read(max);

  k : = 1;

  for i : = 2 to n do

  begin

    read(m);

    if m > max then

    begin

      max : = m;

      k : = 1;

    end

    else if m = max then

      k : = k + 1;

  end;

  writeln(k);

  readkey;

end.

Популярно: Информатика