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

Однажды Вася обнаружил в лесу таинственный прибор с циферблатом. Рядом нашёлся обрывок страницы, на котором записан какой-то малопонятный текст. Вася заметил в тексте последовательность чисел, каждое из которых равно -1, 0 или 1. Также рядом с прибором он обнаружил пульт управления с тремя кнопками, на которых написаны те же числа. Вася проверил, что происходит при нажатии на них. Выяснилось, что при нажатии на «-1» прибор сдвигает стрелку на одно деление влево, при нажатии на «1», он сдвигает на одно деление вправо, а при нажатии на «0», стрелка не двигается.

Вася уже настроился на то, чтобы нажать последовательность чисел из обрывка, но перед этим решил все таки выяснить, в какую сторону в итоге сдвинется стрелка от текущего положения.

Васе выяснить это.
В единственной строке выведите:

слово Left, если стрелка прибора переместится влево,

слово Right, если стрелка переместится вправо,

слово Stay, если вернется в исходное положение.
Пример

5
1 0 1 -1 0
Right

👇
Ответ:
marilmermaidp08sv1
marilmermaidp08sv1
31.05.2020

Відповідь:

total = int(input("Введите количество перемещений:\n"))

l=0

turns = list(map(int,input().split()))

for i in range(total):

   l+=turns[i]

if l>0:

   print("Right")

elif l<0:

   print("Left")

else:

   print("Stay")

4,8(70 оценок)
Открыть все ответы
Ответ:
Стариат
Стариат
31.05.2020
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);
  var n := ReadInteger('n->');
  for var i := 4 downto 0 do
  begin
    k[i] := n div t[i];n := n mod t[i];
  end; 
  if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end;
  if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then 
  begin
    k[0] := 0;k[1] := 0;inc(k[2]); 
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]);
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]); 
  end;
  
  for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.

Пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)

Пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
4,7(10 оценок)
Ответ:
Аnuk
Аnuk
31.05.2020
Не самый лёгкий, но работающий

const  n = 10000;//Не изменяемая по ходу программы переменная
var  a: array[1..n] of integer;  b: array[1..10]of integer;  c: array[1..10]of integer;  i, s, v: integer;
begin  for i := 1 to 10 do //Заполнение массива с числами от 1 до 10    c[i] := i;  for i := 1 to n do //Заполнение массива    a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей  for i := 1 to n do    case a[i] of      1: b[1] := b[1] + 1;      2: b[2] := b[2] + 1;      3: b[3] := b[3] + 1;      4: b[4] := b[4] + 1;      5: b[5] := b[5] + 1;      6: b[6] := b[6] + 1;      7: b[7] := b[7] + 1;      8: b[8] := b[8] + 1;      9: b[9] := b[9] + 1;      10: b[10] := b[10] + 1;    End;    for i := 1 to 10 do    for s := 1 to 9 do      if b[s] > b[s + 1] then begin        v := b[s];        b[s] := b[s + 1];        b[s + 1] := v;        v := c[s];        c[s] := c[s + 1];        c[s + 1] := v;      end;  writeln(c[10], ' - их ', b[10]);    end.
4,4(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ