Объяснение:
1)выливаем из 8-литрового в 3-хлитровую
2).Эту 3-хлитровую выливаем в 5-тилитровый сосуд
3))выливаем из 8-литрового в 3-хлитровую
4).Эту 3-хлитровую выливаем в 5-тилитровый сосуд, до того, пока он становится полным.
5).Этот 5-тилиртовый сосуд (молоко) выливаем полностью в 8-илитровую
6).1 литр молока, который находится в 3-хлитровом сосуде, выливаем в 5-илитровый.
7)выливаем из 8-литрового в 3-хлитровую
8)это молоко из 3-хлитрого выливаем в 5-тилитровый. Там стал 4 литра молока!
В 8-милитровом сосуде также 4 литра молока.
1. Чтобы решить задачу, надо определить, какое количество варенья съест Машенька за 20 дней. Вначале вычислим это количество в ложках, если известно, что за день она съедает по 5 ложек варенья:
5 * 20 = 100 ложек.
2. Теперь переведем 100 ложек варенья в граммы, если известно, что каждая ложка помещает 5 г варенья:
100 * 5 = 500 грамм.
3. Если исходное количество варенья составляет 650 грамм, тогда вычтем из этой массы ту часть, что съест Машенька за 20 дней и получим массу оставшегося варенья через 20 дней:
650 - 500 = 150 грамм.
ответ: получили, что через 20 дней в банке останется всего 150 грамм варенья.
// Размер массива в данном примере равен 10 Если нужно больше поменяешь сам.
Program Massiv;
Uses Crt;
var a:array[1..10] of integer;
i,c,m:integer;
begin
clrscr;
randomize;
write('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(101)-50;
write(a[i]:3);
end;
m:=a[1];c:=1;
for i:=1 to 10 do
if (abs(a[i]))>m then
begin
m:=a[i];
c:=i;
end;
writeln;
writeln('Максимальный по модулю элемент:',m,'его индекс:',c);
readkey;
end.