Если словесно.
Берём пустые сосуды.
Наполняем 5-литровый и переливаем в 7литровый.
Результат: 5литровый - пуст, в 7литровом - 5 литров.
Наполняем 5литровый и переливаем в 7литровый столько, чтобы 7литровый наполнился.
Результат: 7литровый полон ( 5было + 2литра из 5литрового). В 5литровом 3 литра(5 было - 2 пепелили в 7литровый).
7литровый опустошаем и в него переливаем содержимое 5литрового.
Результат: 5литровый пуст (перелили в 7литровый), в 7литровом 3 литра.
Наполняем 5 литровый и переливаем в 7литровый столько, чтобы 7литровый заполнился.
Результат : 7литровый полон ( 3литра было + 4литра из 5 литрового. В 5литровом остался литр (5 литров - 4литра перелили в 7литровый).
Требуемый литр в 5литровом.
.
Есть еще один способ:
.
берём также пустые сосуды. Наполняем 7литровый. переливаем в 5литровый столько, чтобы 5литровый наполнился.
результат: в 7литровом - 2 литра (5 перелили в 5литровый), 5 литровый полон.
опустошаем 5 литровый и заливаем в него содержимое 7литрового.
результат: 7 литровый - пуст, в 5литровом - 2литра.
наполняем 7литровый и переливаем в 5 литровый столько, чтобы наполнить 5литровый.
результат: 5литровый полон (2литра +3литра из 7литрового), в 7литровом - 4литра (7литров - 3литра перелили в 5литровый).
5литровый опустошаем и в него заливаем содержимое 7литрового.
результат: 7литровый пуст, в 5литровом - 4литра.
наполняем 7литровый и переливаем в 5литровый столько, чтобы наполнить литровый.
результат: 5литровый полон(4литра +1литр из 7литрового), в 7литровом-6литров.
опустошаем 5 литровый и заливаем в него из 7литрового столько, чтобы 5литровый заполнился.
результат: 5литровый полон, в 7литровом - 1литр (6литров - 5литров перелили в 5литровый). искомый литр в 7литровом сосуде
Program BP_Sasde;
Uses crt;
Var a:array[1..20] Of integer;
imax,imin,i:integer;
begin
Clrscr;
imin:=20;imax:=0;
for i:=1 to 20 do begin
a[i]:=random(1,20);
if a[i]>imax then imax:=a[i] else imin:=a[i];
writeln(a[i]);
end;
writeln('максимум = ',imax,' а минимум = ',imin);
end.
Program Summa;
Uses Crt;
var i,s:integer;
begin
clrscr;
i:=10;s:=0;
write('Двухзначные числа кратные 5: ');
while(i<=50) do
begin
write(i,' ');
s:=s+i;
i:=i+5;
end;
writeln;
writeln('Сумма 10 двухзначных чисел кратных 5: ',s);
readkey;
end.
В формате .pub могут быть
<span><span>1-Документы офисной программы Microsoft Publisher;
</span><span>2-Файлы, в которых генерируется, хранится и распространяется публичный ключ шифрованных объектов в файловой системе.</span></span>