МАШЕНЬКА881
06.09.2021 01:23

Решить в python. 1)банкомат. в банкомате имеются в достаточном количестве купюры номиналом 10, 20, 50, 100, 200 и 500 гривен найти минимальное количество купюр, которое необходимо использовзть, чтобы выдать сумму в n гривен или ввести -1, если указанную суму выдать нельзя. входные данные одно число n (1 < =n< =1) выходные данные наименьшее количество купюр, которыми можно выдать n гривен.
2)скидки в супермаркете электроники, если верить телерекламе, иснус система скидок из двух купленных товаров полностью сплачусться тлько вартсть дорогого товара, другой предоставится бесплатно какой суммы достаточно, чтобы оплатить покупку трех товаров, если известна цена каждого входные данные: три натуральних числа а, b, с цени трех товаров (1 < = a, b, с< =1) bиходные данные: стоимость покупки
3)поле-чудес петрик і марічка захопились грою полечудес марічка записує слово, що складається з великих ійських букв, петрик старається poзпізнати його, причому відгадана буква відкривається на всіх позиціях, де вона міститься. за яку найменшу кількість подій петрик зможе відгадати задане слово. вxідні данні слово записане великими ійськими буквами (не бiльше 100 симеолів) вихідні дані: вдловдь до і.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Умники121212
17.02.2023 05:11
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:=ReadInteger('n=');
  if n<0 then Writeln(n,'! не определено: n<0')
  else
    if n=0 then Writeln('0!=1')
    else begin
      var p:BigInteger:=1;
      for var i:=2 to n do p*=i;
      Writeln(n,'!=',p)
      end
end.

Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000
0,0(0 оценок)
Ответ:
qwerty836
13.11.2022 02:36
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var a:array[1..20] of integer;
  Randomize;
  for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
  var b:=Range(2,20,2).Select(i->a[i]);
  Writeln('Элементы с четными индексами по возрастанию');
  b.Sorted.Println;
  Writeln('Элементы с четными индексами по убыванию');
  b.SortedDescending.Println;
end.

Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота