Новое правило в чемпионате мира по программированию ICPC: можно использовать три компьютера. Давайте посмотрим как это повлияла на одну из сильнейших команд с Казахстана. Кирилл,
Айбар и Султан начали писать контест.
В контесте всего n задач и длится 5 часов.
Они уже оценили время которое они потратят на каждую задачу. Кирилл решает задачу с
номером i за ai минут. Айбар за bi
. Султан за ci
.
Как и всегда нужно решить как можно больше задач с меньшим штрафом.
Штраф определяется как сумма времени решения для каждой принятой задачи.
Например, если команда сдаст первую задачу на 5 минуте, а вторую на 10 минуте то штраф
будет равен 5 + 10 = 15.
Вам нужно определить какой самый лучший результат может получить команда.

👇

Увидеть ответ

Открыть все ответы

Ответ:

ellapetrovna

03.02.2023

Письмо - 100 г

Посылка - 5 кг

Телеграмма - 50 г

Бандероль - 500 г

Дядя Фёдор получил:

Писем - 8 шт.

Посылок - 3 шт.

Телеграмм - 7 шт.

Бандеролей - 1 шт.

Кот Матроскин получил:

Писем - 3 шт.

Посылок - 1 шт.

Телеграмм - 3 шт.

Бандеролей - 1 шт.

Пёс Шарик получил:

Писем - 0 шт.

Посылок - 3 шт.

Телеграмм - 0 шт.

Бандеролей - 4 шт.

Вся почта, доставленная Печкиным одного вида (кол-во):

Писем - 8+3+0=11 шт.

Посылок - 3+1+3=7 шт.

Телеграмм - 7+3+0=10 шт.

Бандеролей - 1+1+4=6 шт.

Вся почта, доставленная Печкиным одного вида (вес):

Писем - 100*11=1100 г

Посылок - 5*7=35 кг

Телеграмм - 50*10=500 г

Бандеролей - 500*6=3000 г

4,4(32 оценок)

Ответ:

katyaibadova

03.02.2023

//1
var A, B, i: integer;
begin
write('Введите A и B: '); readln(A, B);
for i := A to B do
    if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);
end.

//2
var
A, B, i, k: integer;
begin
write('Введите A и B: '); readln(A, B);
for i := A to B do
    if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then
    begin
      writeln(i);
      k := k + 1;
    end;
    if k = 0 then writeln('Таких чисел нет.');
end.

//3
var sum, i, n: integer;
begin
write('Введите количество предметов: '); readln(n);
for i := 1 to n do
begin
    readln(n);
    sum := sum + n;
end;
writeln('Общая масса = ', sum);
end.

//3 с другим циклом
var sum, n: integer;
begin
writeln('Введите 0 для завершения ввода.');
repeat
    readln(n);
    sum := sum + n;
until n = 0;
writeln('Общая масса = ', sum);
end.

4,5(40 оценок)

Это интересно:

Взаимоотношения

15.07.2022

Как отстаивать свои права в отношениях: 10 советов...

02.05.2023

Как избавиться от безответной любви...

Искусство-и-развлечения

08.01.2020

10 советов по тому, как стать хорошим хип-хоп танцором...

Стиль-и-уход-за-собой

08.03.2023