1 1 1 1 0 0 1 1 463/2=231/2=115/2=57/2=28/2=14/2=7/2=3/2=1 Важно разделить число так чтобы оно было без остатка если допустим число 463 не делится на 2 значит надо занять 1 тогда будет число 462 его разделим на 2 и т.д. а эту единицу необходимо записать над знаком деления если число делится пишим 0 над знаком деления и записываем получившееся число с права налево получается число 11001111 также и в восьмеричной системе счисления пишим остаток над знаком деления 7 1 463/8=57/8=7 ответ 717 Аналогично в 16 ричной СС 15 12 463/16=28/16=1 так как 15 у нас равно Е а 12 С ответ будет 1СЕ B) 1 0 0 1 1 1 0 1 0 0 1209/2=604/2=302/2=151/2=75/2=37/2=18/2=9/2=4/2=2/2=1 ответ с права налево 10010111001 1 7 2 1209/8=151/8=18/8=2 ответ 2271 9 В 1209/16=75/16=4 ответ 4В9 С) 0 1 0 1 0 1 1 0 362/2=181/2=90/2=45/2=22/2=11/2=5/2=2/2=1 ответ 101101010 2 5 362/8=45/8=5 ответ 552 А 6 362/16=22/16=1 ответ 16А D) 1 0 1 0 1 0 1 0 1 1 1 3925/2=1962/2=981/2=490/2=245/2=122/2=61/2=30/2=15/2=7/2=3/2=1 ответ 111101010101 5 2 5 3925/8=490/8=61/8=7 ответ 7525 5 5 3925/16=245/16=15 иил F ответ F55 Е) 1 1 0 1 1 0 1 0 0 0 11355/2=5677/2=2838/2=1419/2=709/2=354/2=177/2=88/2=44/2=22/2= 1 1 0 11/2=5/2=2/2=1 ответ 10110001011011 3 3 1 6 11355/8=1419/8=177/8=22/8=2 ответ 26133 В 5 С 11355/16=709/16=44/16=2 ответ 2С5В
Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).
type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real; procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end; procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end; begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F); sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.
463/2=231/2=115/2=57/2=28/2=14/2=7/2=3/2=1 Важно разделить число так чтобы оно было без остатка если допустим число 463 не делится на 2 значит надо занять 1 тогда будет число 462 его разделим на 2 и т.д. а эту единицу необходимо записать над знаком деления если число делится пишим 0 над знаком деления и записываем получившееся число с права налево получается число 11001111
также и в восьмеричной системе счисления пишим остаток над знаком деления
7 1
463/8=57/8=7 ответ 717
Аналогично в 16 ричной СС
15 12
463/16=28/16=1 так как 15 у нас равно Е а 12 С ответ будет 1СЕ
B) 1 0 0 1 1 1 0 1 0 0
1209/2=604/2=302/2=151/2=75/2=37/2=18/2=9/2=4/2=2/2=1 ответ с права налево 10010111001
1 7 2
1209/8=151/8=18/8=2 ответ 2271
9 В
1209/16=75/16=4 ответ 4В9
С) 0 1 0 1 0 1 1 0
362/2=181/2=90/2=45/2=22/2=11/2=5/2=2/2=1 ответ 101101010
2 5
362/8=45/8=5 ответ 552
А 6
362/16=22/16=1 ответ 16А
D) 1 0 1 0 1 0 1 0 1 1 1
3925/2=1962/2=981/2=490/2=245/2=122/2=61/2=30/2=15/2=7/2=3/2=1 ответ 111101010101
5 2 5
3925/8=490/8=61/8=7 ответ 7525
5 5
3925/16=245/16=15 иил F ответ F55
Е) 1 1 0 1 1 0 1 0 0 0
11355/2=5677/2=2838/2=1419/2=709/2=354/2=177/2=88/2=44/2=22/2=
1 1 0
11/2=5/2=2/2=1 ответ 10110001011011
3 3 1 6
11355/8=1419/8=177/8=22/8=2 ответ 26133
В 5 С
11355/16=709/16=44/16=2 ответ 2С5В