Тому сойеру нужно покрасить забор. он имеет 12 литров краски. хочет отлить из этого количества- половину, но у него нет сосуда вместимостью в 6 литров. у тома 2 сосада: один- вместимостью с 8 литров, а другой - вместимостью в 5 литров. каким образом налить 6 литров краски в сосуд на 8 литров? какое наименьшее число переливаний необходимо при этом сделать?

1)отливаем 8 литров в 8 литровый, тогда в 12 литровом останется4
2) из 8 литрового переливаем в 5 литровый 5 литров, тогда в 8 литровом останется 3
3)ИЗ 5 ЛИТРОВОГО ОБРАТНО 5 ЛИТРОВ В 12 ЛИТРОВЫЙ
 ТАМ СТАНОВИТСЯ 9 ЛИТРОВ
4)ИЗ 8 ЛИТРОВОГО ПЕРЕЛИВАЕМ 3 ЛИТРА В 5 ЛИТРОВЫЙ
5)НАЛИВАЕМ ИЗ 12 ЛИТРОВОГО 8 ЛИТРОВ В 8 ЛИТРОВЫЙ
6)ТЕПЕРЬ ИЗ 8 ЛИТРОВОГО ДОЛИВАЕМ В 5 ЛИТРОВЫЙ 2 ЛИТРА(ДО ВЕРХА), ТОГДА В 8 ЛИТРОВОМ ОСТАЕТСЯ 6 ЛИТРОВ

=ЕСЛИ(A1>B1;ЗАМЕНИТЬ(A1;3;3;B1);ЗАМЕНИТЬ(B1;3;3;A1))

Объяснение:

Смотри картинки

Функция ЕСЛИ - позволяет в зависимости от условия выводить два результата. Первый результат возвращается когда, условие истинно, второй результат, когда условие ложно.

ЕСЛИ (условие; первый результат; второй результат)

Здесь сравниваем какое число больше и в зависимости от этого производим замену.

Функция ЗАМЕНИТЬ - позволяет заменить указанное число символов в старой ячейке новыми символами.

ЗАМЕНИТЬ (старая ячейка (в ней заменяем символы, заменяемые символы пропадают); начальная позиция (с какого символа начинаем заменять); число символов (количество заменяемых символов); новые символы (которые вставляем))

Здесь в большем числе убираем 3-5 цифры (т.е. три символа), а вставляем значение меньшего числа.

program five;

var

 number, quantity: integer;

begin

 quantity := 0;

 read(number);

 while number > 0 do

 begin

   if (number mod 10 mod 5 = 0) then

     inc(quantity);

   number := number div 10;

 end;

 write(quantity);

end.

Объяснение:

program five;  // Название программы

var

 number, quantity: integer;  // Целочисленные переменные:

number - вводимое с клавиатуры число;quantity - количество цифр кратных 5.

begin  // Начало программы

 quantity := 0;  // Количество цифр = 0

 read(number);  // Ввод числа с клавиатуры

 while number > 0 do  // Пока значение переменной number > 0

 begin  // Начало цикла

   if (number mod 10 mod 5 = 0) then  // Если последняя цифра переменной number (number mod 10) при делении на 5 дает остаток 0, тогда

     inc(quantity);  // Прибавляем к переменной quantity единицу

   number := number div 10;  // Удаляем последнюю цифру числа

 end;  // Конец цикла

 write(quantity);  // Вывод ответа

end. // Конец программы