Составьте алгоритм решения следующей . как разлить молоко поровну в два бочонка, если имеются бочонки емкостью 6, 3 и 7 литров, в первом и третьем из которых содержится соответственно 4 и 6 литров молока?

1).Из 3 бочонка перелить во 2й 3 литра.
2).Из 1 бочонка перелить 1 литр в 3й.

B2:AA1000 - прямоугольный диапазон, содержащий 25974 ячеек, расположенных в столбцах от B до AA включительно и в строках от 2 до 1000 включительно.

Объяснение:

B2:AA1000 - прямоугольный диапазон, содержащий ячейки, расположенные в столбцах от B до AA включительно и в строках от 2 до 1000 включительно.

Столбцы в табличных редакторах называются сначала одной буквой от A до Z, потом двумя от AA до ZZ, затем тремя буквами. Диапазон от B (второй столбец) до AA (27-й столбец) включает 26 столбцов.

Строки нумеруются последовательными числами, начиная с 1. Диапазон от 2 до 1000 содержит 1000 - 2 + 1 = 999 строк.

Всего в диапазоне 26 * 999 = 25974 ячеек.

Відповідь:

Выводим числа в указанном порядке

Добрый день. ☺ На этой странице рассматриваем первые 9 заданий раздела for (смотрите Оператор цикла с параметром) задачника Абрамяна.

For1. Даны целые числа K и N (N > 0). Вывести N раз число K.

Код Pascal

1  

2  

3  

4  

5  

6  

7  

8  

9  

10  

11  

12  

13  

14  

var

 K: integer;

 N, i: word; { <-- Описание переменных }

begin

 write('K = '); { <-- Выводим на экран сообщение }

 readln(K); { <-- Вводим K и переходим на следующую строку }

 write('N = '); { <-- Выводим сообщение на экран }

 readln(N); { <-- Вводим N и переходим на следующую строку }

 writeln('Число ', K, ' выводим ', N, ' раз:'); { <-- Подсказка }

 for i := 1 to N do { <-- Повторение N раз }

   write(' ', K); { <-- Выводим число K на экран }

 readln { <-- Ожидание нажатия Enter }

end.

For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

Код Pascal

1  

2  

3  

4  

5  

6  

7  

8  

9  

10  

11  

12  

13  

14  

15  

16  

17  

var

 A, B, i: integer;

 N: word;

begin

 writeln('Введите целые числа A и B (A < B):');

 readln(A, B);

 writeln; { <-- Переход на новую строку }

 writeln('Выводим все целые числа между ', A, ' и ', B, ':');

 { Выводим все числа от А до В включительно: }

 for i := A to B do write(' ', i);

 N := B - A + 1; { <-- Количество чисел в диапазоне [A, B] }

 { Выводим результат: }

 writeln; { <-- Пропускаем одну строку }

 writeln('Количество чисел между ', A, ' и ', B, ' равно ', N);

 readln

end.

*   *   *