У меня это уже было я из тетрадки перепишу 2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268 3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке) 137 / 2 = 68 ( остаток 1) 68 / 2 = 34 (остаток 0) 34 / 2 = 17 (остаток 0) 17 / 2 = 8 (остаток 1) 8 / 2 = 4 (0) 4 / 2 = 2 (0) 2 / 2 = 1 (0) Теперь надо записать остатки в обратном порядке = 10001001 4) Как я понял 8 и 16 это систему счисления, если да то: а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105 б) 2С = 2 * 16 + 12(С) = 32 + 12 = 44 ну блин как то так наверное
1. Program TuKpa6;const n=5;const m=5;varA:array[1..n,1..m] of integer;i,j:integer;BEGINfor i:=1 to n do begin for j:=1 to m do begin a[i,j]:=10*i+j; end; end;writeln('HaIIgeHo:');for i:=1 to n do begin for j:=1 to m do begin if (odd(a[i,j])) and (a[i,j]<40) and (a[i,j] mod 5 = 2) then begin writeln('a[',i,j,']=',a[i,j]); end; end; end;writeln('koHeII,');END.
2. Program TuKpa6;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;for i:=1 to n do {забиваем массва} begin a[i]:=i; end;for i:=1 to n do {суммируем чётные элементы} begin if not (odd(a[i])) then begin sum:=sum+a[i]; end; end; writeln('HaIIgeHo:');for i:=1 to n do begin if i=4 then begin a[i]:=sum; writeln('a[',i,']=',a[i]); end; end;writeln('koHeII,');END.
2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268
3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке)
137 / 2 = 68 ( остаток 1)
68 / 2 = 34 (остаток 0)
34 / 2 = 17 (остаток 0)
17 / 2 = 8 (остаток 1)
8 / 2 = 4 (0)
4 / 2 = 2 (0)
2 / 2 = 1 (0)
Теперь надо записать остатки в обратном порядке = 10001001
4) Как я понял 8 и 16 это систему счисления, если да то:
а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105
б) 2С = 2 * 16 + 12(С) = 32 + 12 = 44
ну блин как то так наверное
Program TuKpa6;const n=5;const m=5;varA:array[1..n,1..m] of integer;i,j:integer;BEGINfor i:=1 to n do begin for j:=1 to m do begin a[i,j]:=10*i+j; end; end;writeln('HaIIgeHo:');for i:=1 to n do begin for j:=1 to m do begin if (odd(a[i,j])) and (a[i,j]<40) and (a[i,j] mod 5 = 2) then begin writeln('a[',i,j,']=',a[i,j]); end; end; end;writeln('koHeII,');END.
2.
Program TuKpa6;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;for i:=1 to n do {забиваем массва} begin a[i]:=i; end;for i:=1 to n do {суммируем чётные элементы} begin if not (odd(a[i])) then begin sum:=sum+a[i]; end; end; writeln('HaIIgeHo:');for i:=1 to n do begin if i=4 then begin a[i]:=sum; writeln('a[',i,']=',a[i]); end; end;writeln('koHeII,');END.