В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
иосиф19
иосиф19
27.10.2022 20:03 •  Информатика

Python. группа из n бизнесменов имела по одному счету в банке "успех". на каждом счете - не более 100 целых условных единиц (цуе). особенность "успеха" - со счета можна снимать лишь всю сумму целиком. в продаже имеются товары, по одному каждого вида, цена самого дешевого - 1 цуе, каждый следующий - на 1 цуе дороже. самый дорогой имеет цену, равную сумме всех имеющихся у бизнесменов средств. сколько из этих товаров недоступны для покупки одному бизнесмену либо их группе, объединившей свои капиталы? бизнесмены генетически не могут заплатить за товар больше его цены и вкладывать деньги в сделку частями.
входные данные. в первой строке вы вводите с клавиатуры число бизнесменов n (2< =n< =100), во второй строке далее - n чисел - сумма вкладов.
выходные данные. вы выводите на экран одно число - количество единиц товара, которые не могут быть куплены.

Показать ответ
Ответ:
Щебестан1337
Щебестан1337
13.05.2020 08:34
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
0,0(0 оценок)
Ответ:
dashanarmania
dashanarmania
25.05.2022 00:19
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота