24л 13л 11л 5л - емкость бочек
далее пойдут количества воды в каждой из бочек после каждого перливания
0 13 11 0
0 13 6 5
6 13 0 5
6 13 5 0
6 8 5 5
0 8 11 5
8 0 11 5
8 11 0 5
8 13 3 0
8 8 3 5
<u>8 8 8 0</u>
Program zadacha;
var rad, a, b, c, p:real;
begin
p:=3.14;
writeln('Введите радиус круга: ');
readln(rad);
writeln('Введите сторону квадрата: ');
readln(a);
b:=p*(rad*rad);
c:=a*a;
if b>c then
writeln('Площадь круга больше, чем площадь квадрата.')
else
writeln('Площадь квадрата больше, чем площадь круга.');
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, d, r) := ReadInteger3;
var (km, kd) := (r div m, r div d);
for var i := 0 to km do
for var j := 0 to kd do
if i * m + j * d = r then Println(i, j)
end.
<h2>Пример</h2><h3>2000 3000 20000</h3><h3>1 6 </h3><h3>4 4 </h3><h3>7 2 </h3><h3>10 0 </h3>