Нет таких доказательств. Как можно моделировать в программе, которая предназначена совсем для другого?
<h2>Написано на языке PascalABC.NET</h2>
- const
- cValue = 2;
- var
- N, i: integer;
- resultNumber: real;
- begin
- Readln(N);
-
- for i := 1 to N do
- resultNumber := resultNumber + Power(cValue, i);
- Writeln(resultNumber);
- end.
Файл - структура данных, распознаваемых ПК. Каталог - список файлов с указанием места хранения на винчестере.
//PascalABC.NET 3.1 сборка 1200
begin
var d := ReadReal('d =');
var s := SeqGen(
ReadInteger('n ='),
ReadReal('a1 ='),
a -> a + d)
.Aggregate((s, x)-> s + x);
writeln(s);
end.
1. В первое ведро (в которое можно налить 9 литров воды)
налить воду (будет 9 литров)
2. Перелить во второе 5 литров и в первом останется 4 л
3. Вылить из второго всю воду
4. Вылить 4 л из первого во второе
5. Снова налить воды в первое
6. Слить во второе 1 литр (в нем итак уже было 4 л)
7. Вылить всю воду из второго ведра
8. Перелить 5 л из первого во второе
<span>Всё, в первом ведре осталось ровно 3 литра воды</span>