Program Sport;
Var
s: Real;
day: Integer;
Begin
day := 1;
s := 10;
while s < 20 do
begin
day := day + 1;
s := s + (s/100)*10;
end;
WriteLn(day);
ReadLn;
End.
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 литров
Print(sorted(list, reverse=True) == list)