Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
Возьми, учись хорошо,удачи тебе в учёбе
1)наполняем 8-ми литровый бидон и переливаем его в 5-ти литровый,таким образом в 8 л. остается 3 л.
2)освобождаем 5-ти литровый,и снова наливаем в него оставшиеся в том бидоне 3 литра
3)далее снова наполняем 8-ми литровый и доливаем из него в 5-ти литровый,и у нас остается 6 литров
4)затем снова освобождаем 5-ти литровый,и переливаем в него содержимое из 8-ми литрового,так как в нем было 6 литров,а мы перелили их в 5-ти литровый бидон,то теперь в 8-ми литровом остался 1 литр.