var breadPrice: real; // цена хлеба
breadCount: byte; // количество хлеба
milkPrice: real; // цена молока
milkCount: byte; // количество молока
sum: real; // сумма покаупки хлеба и молока
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
procedure P(n:integer);
begin
n.ToString.Print(NewLine)
end;
begin
P(ReadInteger('n='))
end.
<u><em>Тестовое решение:</em></u>
n= 123407
1
2
3
4
0
7
8 литров в 8-ми литровой кастрюле, 0 литров в 5-ти литровой банке, 0 литров в 3-х литровой банке (8-0-0)
1) Из 8-ми литровой кастрюли наливаем в 5-ти литровую банку (полную). (3-5-0)
2) Из 5-ти литровой банки наливаем в 3-х литровую банку (полную). (3-2-3)
3) Из 3-х литровой банки переливаем в 8-ми литровую кастрюлю. (6-2-0)
4) Из 5-ти литровой банки переливаем в 3-х литровую банку. (6-0-2)
5) Из 8-ми литровой кастрюли наливаем в 5-ти литровую банку (полную). (1-5-2)
6) Из 5-ти литровой банки наливаем в 3-х литровое (до полной). (1-4-3)
7) Из 3-х литровой банки переливаем в 8-ми литровую кастрюлю. (4-4-0)
А 2 122 102 б 111 322 221 в 918 182 с остатком
Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.