1)9литровое 2)5-литровое ( так удобнее писать)
набираем 1 ведро
переливаем из 1 до краев во 2 (в 1 остается 4 литра)
выливаем 2ведро
переливаем из 1 во 2
набираем 1
переливаем из 1 <span>до краев во 2 (в 1 остается 8 литров)
</span><span>выливаем 2ведро
</span>переливаем из 1 <span>до краев во 2 (в 1 остается 3 литра)
</span><span>выливаем 2ведро
</span><span>переливаем из 1 во 2
</span>набираем 1 ведро
переливаем из 1 до краев во 2 (в 1 остается 7 <span>литра)
</span>Готово!
в 1 ведре 7 литров
1111111100101000 (вот такой будет вид в двоичной системе счисления)
Uses Graphabc;
begin
SetWindowWidth(530);
SetWindowHeight(200);
SetPenWidth(5);
Rectangle(250, 10, 310, 70);
Rectangle(210, 70, 350, 130);
Rectangle(170, 130, 390, 190);
end.
Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;