donertime8
?>

Решили бабушке собрать урожай яблок. они собрали 90 кг яблок. у них было 15 ящиков: 3 ящика вместимостью 10 кг, 5 ящиков по 7 кг и 7 ящиков по 5 кг. какое минимальное количество ящиков им понадобится? 13 15 12 14

Информатика

Ответы

mb9037479491
Будем складывать от большего к меньшему.

Возьмем ящики с наибольшей вместимостью и сложим их:
3 * 10 = 30 кг
После чего, возьмем ящики вместимостью по 7 килограмм и снова же сложим их сумму:
5*7 = 35 кг
Сложим сумму и колличество ящиков с наибольшей и средней вместимостью:
Сумма = 30+35= 65 кг
Колл-во = 3+7 = 10 ящ
Теперь в последний раз сложим сумму предыдущих вычислений с суммой и колл-вом ящиков с наименьшей вместимостью, но так, чтобы сумма не превышала 90 кг. Т.е нам нужно складывать по 1 ящику до того момента, пока их сумма не будет равна 90кг:
Максимальное колл-во используемых нами ящиков, не должно превышать 7.
65+5=70 кг - 11ящ;
70+5=75кг - 12 ящ;
75+5 =80кг - 13 ящ;
80+5 = 85кг - 14 ящ;
85+5 = 90кг - 15 ящ;
Как видим, мы уложились в 15 ящиков, это и будет являться ответом.
Aliferenko

1)

var n:integer;

begin

  writeln('Введите номер месяца: ');

 readln(n);

 if (n = 1) or (n = 2) or (n = 12) then

   writeln('Зима');

 if (n = 3) or (n = 4) or (n = 5) then

   writeln('Весна');

 if (n = 6) or (n = 7) or (n = 8) then

   writeln('Лето');

 if (n = 9) or (n = 10) or (n = 11) then

   writeln('Осень');

end.

2)

var n:real;

begin

  writeln('Введите температуру: ');

 readln(n);

 if (34.1 <= n) and (n <= 36.4) then

   writeln('Пониженная');

 if (36.5 <= n) and  (n<= 36.6) then

   writeln('Нормальная');

 if (36.7 <= n) and (n <= 41) then

   writeln('Повышенная');

  if (n <= 34) or (n > 41) then

   writeln('Не может быть!');

end.

agent-ulitka5
ответ:var a, b: real; s: string; begin readln(a); readln(b); readln(s); if s = '+' then write(a + b); if s = '-' then write(a - b); if s = '/' then if b <> 0 then write(a / b) else write('Деление на 0!'); if s = '*' then write(a * b); if s = 'mod' then if b <> 0 then write(Round(a) mod Round(b)) else write('Деление на 0!'); if s = 'pow' then write(power(a, b)); if s = 'div' then if b <> 0 then write(Round(a) div Round(b)) else write('Деление на 0!'); end.Пояснение:

В pascal операции mod и div к вещественным типам недоступны, поэтому округляем их через Round. Можно поменять на Trunc - он возвратит только целую часть.

Однако правильнее будет делать через case:var a, b: real; s: string; begin readln(a); readln(b); readln(s); case s of char.ToString('+'): write(a + b); char.ToString('-'): write(a - b); char.ToString('/'): if b <> 0 then write(a / b) else write('Деление на 0!'); char.ToString('*'): write(a * b); 'mod': if b <> 0 then write(Round(a) mod Round(b)) else write('Деление на 0!'); 'pow': write(power(a, b)); 'div': if b <> 0 then write(Round(a) div Round(b)) else write('Деление на 0!'); end; end.Пояснение:

В case '+', '-', '/', '*' воспринимаются как char, поэтому переводим их в string через стандартный метод класса char: char.ToString( )

Примеры работ:
Напишите калькулятор, который считывает с пользовательского ввода три строки: первое число, второе ч
Напишите калькулятор, который считывает с пользовательского ввода три строки: первое число, второе ч

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решили бабушке собрать урожай яблок. они собрали 90 кг яблок. у них было 15 ящиков: 3 ящика вместимостью 10 кг, 5 ящиков по 7 кг и 7 ящиков по 5 кг. какое минимальное количество ящиков им понадобится? 13 15 12 14
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

semenovakotya577
tihonovrv477
vetviptime
antongenfon
msk-academ
tatry2005
YuREVICh646
Obukhov-Buriko
Tsevich333639
olgakuz00261
ВалентиновичСуриковна1104
А=5, b=6, c=a+b программа түрінде жазу​
phmad7
bal4shovser16
виталийВячеславович
Gennadevich Aleksandr