Ввашем распоряжении имеется два кувшина 3 и 8 литров.как с этих кувшинов набрать и з реки 7 литров воды

набрать 8л

два раза отлить 3, будет 8-3-3=2л

перелить 2л из 8 в 3

набрать 8

долить из 8 в 3 1л, так чтоб он стал полным. 8-1=7л

Var     d: integer;     repeat       readln(d);       case d of       1: writeln('понедельник');       2: writeln('вторник');       3: writeln('среда');       4: writeln('четверг');       5: writeln('пятница');       6: writeln('суббота');       7: writeln('воскресенье');       else writeln('конец работы! ')       end;   until (d< 1 or d> 7) end.

1)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');     if a[i]< =20 then s: =s+a[i]; end;   writeln;   writeln(s); end.2)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');   // if (i mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди нечетных номеров элементов.     // if (a[i] mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди самих нечетных элементов.   end;     writeln;   writeln(s); end.