Сдать решение 1-закупка
полный :
100
бонусные :

ограничение времени:
1 с
ограничение реального времени:
5 с
ограничение памяти:
64m
1: закупка
в городе покйаме готовятся к командной олимпиаде по программированию, в которой каждая команда состоит из трёх участников.
в этом году оргкомитет выделил n бурлей для закупки необходимых вещей для состязающихся. каждому участнику олимпиады полагается блокнот, стоимостью a бурлей, и шариковая ручка, стоимостью b бурлей. будем считать, что команда снабжена всем необходимым, если каждый член команды получил и блокнот и ручку.
такое ответственное , как закупка «мерча» для олимпиады, поручили местным волонтёрам. рётнолову стало интересно, сколько команд будут снабжены блокнотами и ручками, но времени на раздумья у него нет, так как занят такими важными и ответственными делами, как например, расселение участников и закупка блокнотов.
волонтёру рётнолову ответить на вопрос, сколько команд будут снабжены необходимыми на олимпиаде вещами.
формат входных данных
в единственной строке входных данных находятся 3 целых числа: n, a, b (1 ≤ n, a, b ≤ 1018) — количество бурлей для закупки, стоимость блокнота и стоимость ручки соответственно.
формат выходных данных
выведите единственное число — количество команд, которые будут снабжены ручками и блокнотами.
система оценки
в первой 60 тестов, прохождение каждого теста из первой дает 1 .
за вторую начисляются только в случае, если все тесты для этой и необходимых успешно пройдены

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
svetiksolntce
08.02.2020 12:08
Begin
  var n:=ReadInteger('n = ');
  var m:=ReadInteger('m = ');
  Writeln('Исходная матрица:');
  var a:=MatrRandom(n,m,-20,20); 
  a.Println(4);
  for var i:=0 to a.RowCount-1 do
    for var j:=0 to a.ColCount-1 do
      if a[i,j]>0 then a[i,j]:=1 else a[i,j]:=0;
  Writeln('Измененная матрица:');
  a.Println(4)
end.

Пример:
n =  4
m =  5
Исходная матрица:
   7  -8  -7  -5  -7
   2   4  -3  -2 -13
  14   5 -12   9  20
  12  11  18  -3   7
Измененная матрица:
   1   0   0   0   0
   1   1   0   0   0
   1   1   0   1   1
   1   1   1   0   1
0,0(0 оценок)
Ответ:
ник41111
08.02.2020 12:08

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота