вот программа на языке pascalabc
uses crt; const max=20; var a: array [1..max,1..max] of byte; n,i,j,k,s,s1,s2,s3: integer; x: char; begin x: =x; repeat writeln('vvedite kol-vo komand n'); readln(n); until n in [1..max]; for i: =1 to n do for j: =1 to n do a[i,j]: =random(3); for i: =1 to n do begin for j: =1 to n do if i=j then write(#204: 4) else write(a[i,j]: 4); writeln; end; writeln('íîìåðà êîìàíä, èìåþùèõ áîëüøå ïîáåä íà ÷óæîì ïîëå'); k: =0; s: =0; s3: =0; for i: =1 to n do begin for j: =1 to n do begin if a[i,j]=2 then s1: =s+1; if a[j,i]=0 then s2: =s3+1; s: =s1; s3: =s2; end; end; if s2> s1 then begin writeln('nomer komandy - ',i,' kol. pobed = ',s2); k: =1 end; if k=0 then writeln('takih komand net'); end.
Поделитесь своими знаниями, ответьте на вопрос:
Срешением! б) 11011002→? 10; в)10000010000, 010012→? 10; г) 1110010100, 0012→? 10; д) 1714, 28→? 10; е) dd, 316→? 10
1101100=0*2^0+0*2^1+1*2^2+1*2^3+0*2^4+1*2^5+1*2^6=4+8+32+64=108(10) 10000010000,01001 (2)=(целая часть по принципу примера б) 1*2^4+1*2^10+(далее дробная часть)0*2^-1+1*2^-1+0*2^-3+0*2^-4+1*2^-5=16+1024+0,25+0,03125=1040,2813
1110010100,001(по аналогии с предыдущим примером)=1*2^2+1*2^4+1*2^7+1*2^8+1*2^9+1*2^-3=4+16+128+256+512+0.125=916.125
1714,2(8)=4*8^0+1*8^1+7*8^2+1*8^3+2*8^-1=4+8+448+512+0.125=972.25
dd,3=13*16^0+13*16^1+3*16^-1=13+208+3*0.0625=221.1875 (d(16)=13(10)#исправлен последний пример