Я буду писать часть предложения, а внизу табличку, чтобы понятнее было))
Набрать 9 литров в первую ёмкость.
1. 9 л 2. 0л (пока что)
Перелить 5 литров во вторую ёмкость.
1.4 л 2. 5л
Из второй ёмкости вылить всю воду
1.4л 2. 0л
И из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.
1.0 л 2. 4л
Набрать полную первую ёмкость
1. 9л 2. 4л
И из неё перелить во вторую 1 литр.
1. 8л 2. 5л
Воду из второй емкости вылить
1.8 л 2. 0л
И из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров
1. 3л 2. 5л
Вот и все!!
begin //начало программы
var nk, nt, ck ,ct, s: integer // задание переменных типа действительные числа;
writeln('Введите количество карандашей'); //вывести на экран надпись
readln(nk); // запись ответа пользователя в переменную nk
writeln('Введите количество тетрадей'); //вывод на экран надписи
readln(nt); // запись ответа пользователя
writeln('Введите стоимость 1 карандаша'); // вывод на экран надписи
readln(ck); // запись ответа пользователя в переменную
writeln('Введите стоимость 1 тетради');
readln(ct);
s:=(nk*ck)+(nt*ct); // вычисление стоимости покупки
writeln('Стоимость покупки: ',s); // вывод стоимости покупки на экран
end. // конец программы
(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)
(nk-количество карандашей, nt-количество тетрадей)
имеются
Объяснение: