Program chet; uses crt; var N, a, b, c:Integer; begin a:=0; Write('Сколько чисел будем вводить? '); ReadLn(N); for b:=1 to n do begin Write('Введите число номер ', b, ': '); Readln(c); if c mod 2 = 0 then begin write(' - это чётное число, берём его!'); a:=a+c; WriteLn('Текущая сумма равна ', a); end end; Writeln(''); Write('Итоговая сумма чётных чисел: ', a); readln; end.
Носителями информации являются флэшки (USB - накопители), мобильные телефоны, диски (дискеты - наверное, уже не используются), компьютеры, ноутбуки, планшеты (если пользуетесь ими в школе) и другие всевозможные технические средства, а также книги, тетради, блокноты - в общем бумажные носители информации. Мы используем носители информации для фиксации (закрепления), хранения, использования, передачи информации (например, записать домашнее задание, записать номер телефона в мобильный телефон, сохранить на флэшке какой-нибудь скачанный фильм, музыку или другой файл любого формата, с материальных носителей мы можем смотреть фильмы, фотографии, слушать музыку и т.д. Соседу по парте можно передать информацию на любом материальном носителе, зависит от того, какая это информация. Если какое-нибудь решение домашнего задания или какая-нибудь короткая фраза, которую надо сказать, но разговаривать на уроке нельзя ))), то на бумажном носителе, если фото, или короткое видео - можно показать в телефоне, если ты принес другу игру, то на диске или флэшке. Звуковые данные можно записать на флэшку, диск, телефон, планшет, плеер.
Имеется всего 6 вариантов как назначить бакам целевой мусор. Например, в 1-й бак собираем стекло, во 2-й бак бумагу, в 3-й бак жесть. Другой вариант: в 1-й стекло, 2-й жесть, 3-й бумага. Всего имеется шесть таких вариантов.
Можем тупо перебрать эти варианты сборки из исходных данных, и увидеть который даст меньшую сумму перекладок. Можешь сделать это самостоятельно, а мне лень.
Идём дальше, и заметим, что сумма перекладок составляет общую сумму всех предметов во всех баках, за минусом тех, которые изначально уже находятся в своих баках. Эта логика верна для любого из шести начальных вариантов.
А что такое предметы, уже находящиеся в своих баках? Это значит, что для данного из шести вариантов наборов баков имеется только одно число в своей строке таблицы, которое указывает на уже лежащий предмет. Например, если баки назначаем так: стекло, бумага, жесть, то из общей суммы всех предметов задачи нужно вычесть числа 52, 83, 75 - то есть лежащие на главной диагонали таблицы.
Для нахождения решения задачи нам нужно подобрать такую перестановку столбцов заданной таблицы, чтобы сумма чисел, находящихся на главной диагонали была максимальной. При таком варианте общая сумма перекладок предметов будет минимальна.
Руководствуясь этим принципом, нужно найти такую комбинацию выбора трёх чисел из заданной таблицы, чтобы они все три одновременно принадлежали как разным строкам, так и разным столбцам; и при этом сумма выбранных чисел была бы максимальной из всех (а их 6) вариантов выбора.
Мне неохота перебирать все эти комбинации, сделай сам. Но навскидку кажется, что если из первого столбца выберу максимальное число (98), из второго столбца уже выбранную строку (вторую) трогать нельзя, поэтому среди верхнего (58) и нижнего (83) выберу наибольшее, и это 83. Таким образом, вторая и третья строки заняты. Из третьего столбца остаётся, что можно взять только число из первой строки, и это 64.
Сумма 98+83+64 = 245 - это число предметов, которые не нужно перекладывать, они сразу лежат в своих баках.
Общее число предметов в задаче - сумма всех 9 чисел таблцы, у меня получилась 693.
ответом будет число перекладок, равное общему числу предметов, минус которые не надо перекладывать. То есть 693 - 245 = 448.
Думаю что это и есть ответ. Но лучше проверь остальные 5 вариантов назначения баков своим видам мусора, и получишь ещё пять чисел. ответом будет наименьшее из них. Чисто нвскидку мне кажется, что это и будет 448.
uses crt;
var N, a, b, c:Integer;
begin
a:=0;
Write('Сколько чисел будем вводить? ');
ReadLn(N);
for b:=1 to n do
begin
Write('Введите число номер ', b, ': ');
Readln(c);
if c mod 2 = 0 then
begin write(' - это чётное число, берём его!');
a:=a+c;
WriteLn('Текущая сумма равна ', a);
end
end;
Writeln('');
Write('Итоговая сумма чётных чисел: ', a);
readln;
end.