<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
var a := MatrGen(m, n, (i, j)-> j.IsOdd ? 1 : 0);
a.Println(2)
end.
Порядок переливания краски ( по шагово ) :
шаг перелива - 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8
ведро (12 л) - 12 4 4 9 9 1 1 6
банка (5 л) - 0 0 5 0 3 3 5 0
ведро (8 л) - 0 8 3 3 0 8 6 6
Const eps=0.00001;
var b,c:integer; a,s:real;
begin
s:=0;
b:=1; c:=1;
a:=1/b+1/c;
while abs(a)>=eps do
begin
s:=s+a;
b:=2*b; c:=c*3;
a:=1/b+1/c;
end;
writeln('s = ',s:8:5);
end.
Результат:
s = 3.49998
Хз
рплопрлрампнргпмрмаом лбг амнщг7н6акмр оьтгн 6аг7кмтоьогн67вщ щд67вс6щ7влщо
3. 2111070(8сс)=010001001001000111000=89230(16сс)
4. т.к в разных сс переведем в 10сс 32(8)=26(10)
214(5)=59(10) х=33(10)=21(16сс)
5.х=6(10)=6(16сс), одинаковые и в 10сс и в 16 сс