Ав+вд+де+еф=12 - кратчайший путь
Легко-
1)набираешь в обоих воду
2)Выливаешь В
3)Наливаешь А в В
4)Набираешь воду в А
5)Переливаешь воду в В
Так получается А-100 мл
Тело цикла будет выполнено 5 раз
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
1)16.08899817075
нужно кбайти перевести в биты ы поделить на 128000
2) 608 Кбайт
Нужно 256000*19перевести в кбайты