Одно ведро вмещает 7литров воды, другое -3литра . придумай алгоритм .цель: отмерить 6литров .

Два ведра по 3 литра , но тк 6 литров не помещается в 3 литровое ведро , их надо налить в 7 литровое ведро .

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var (sn,pp,kp): =(0,1,0);   var n: integer;   repeat       read(n);       if (n< 0) and n.isodd then sn+=n       else           if (n> 0) and (n mod 3=0) then begin pp*=n; kp+=1 end   until n=0;   if sn=0 then begin       writeln('нет отрицательных нечетных чисел');       if kp=0 then writeln('нет положительных чисел, кратных 3')       else writeln('произведение положительных чисел, кратных 3: ',pp)       end   else begin       writeln('сумма отрицательных нечетных чисел: ',sn);       if kp=0 then writeln('нет положительных чисел, кратных 3')       else writeln('произведение положительных чисел, кратных 3: ',pp)       end end. пример -367 23 62 7 12 -24 90 152 -63 0 сумма отрицательных нечетных чисел: -430 произведение положительных чисел, кратных 3: 1080

Var   a: array [1..10] of integer;   pr, i, kol, sum: integer; begin   sum : = 0;   pr : = 1;   for i : = 1 to 10 do       a[i] : = -50 + random(100);   for i : = 1 to 10 do   begin       if (a[i] mod 2 = 1) or (a[i] mod 2 = -1) then    // 1           sum : = sum + a[i];           if (i mod 2 = 0)    then                                                // 2           pr : = pr * a[i]       else if (i mod 2 = 0) and (a[i] = 0) then           pr : = 0;                                 end;   for i : = 1 to 10 do       if (a[i] mod 10 = 0) then           a[i] : = 0;   for i : = 2 to 9 do                                                              // 3   begin       if a[i] = 0 then           if (a[i + 1] < > 0) and ((i + 1) mod 2 = 0) and (a[i - 1] < > 0) and ((i - 1) mod 2 = 0) then               kol : = kol + 1;   end;   writeln('сумму нечетных элементов =', ' ', sum);   writeln('произведение элементов =', ' ', pr);   writeln('число пар соседних элементов =', ' ', kol); end.