для того чтобы выполнить программу номер два необходимо чтобы в ванну спокойно вмещалось 15 литров.
Первая программа
1) Долить 5литров
2) Слить 3 литра
3) Долить 5 литров
4) Слить 3 литра
В ванне 4 литра
Вторая программа
1) Долить 5литров
2) Долить 5литров
3) Долить 5литров
4) Слить 3 литра
5) Слить 3 литра
6) Слить 3 литра
7) Слить 3 литра
В ванне 3 литра
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
const
n=8;
begin
var a:=MatrixRandom(n,n,10,90);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:3);
Writeln
end;
var k:=0;
for var i:=0 to n-1 do
if a[i,i].IsEven then Inc(k);
Writeln('k=',k);
end.
Пример
23 32 75 57 27 14 26 53
46 75 17 68 57 60 10 43
76 10 62 83 62 20 89 15
28 36 71 86 67 13 34 46
84 38 56 90 16 40 19 16
15 39 75 15 23 41 23 70
48 17 50 81 82 18 41 13
33 69 39 82 34 31 77 43
k=3
начало
/ \
d:=a+b e:=a-2d
\ /
\ e:=c:e
\ /
d:=d-e
не знаю, но моё мнение такое. это больше похоже на программный алгоритм. блоки я уже позабыл
800:8 = 100 байт/с
35*60 = 2100 с
2100*100 = 210000 байт (за 35 мин)
210000/10 = 21000 ч