Я думаю и образная и текстовая
роботы умеют ходить
и умеют читать и писать
я так понял твой вопрос
TEMPERATURA[1]= -19
TEMPERATURA[2]= -19
TEMPERATURA[3]= -10
TEMPERATURA[4]= 0
TEMPERATURA[5]= 11
TEMPERATURA[6]= 15
TEMPERATURA[7]= 21
TEMPERATURA[8]=
22
TEMPERATURA[9]=12
TEMPERATURA[10]=6
TEMPERATURA[11]=-3
TEMPERATURA[12]=-10
Писал похожую программу , мб пригодитьсяvar cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n,digit)-1; ToDec:=m; end; begin writeln('Введите из какой СC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.
1) 38₁₀ → X₂
38|0
19|1
9 |1
4 |0
2 |0
1 |1
0 |
38₁₀ = 100110₂
2) 65₁₀ → X₂
65|1
32|0
16|0
8 |0
4 |0
2 |0
1 |1
0 |
65₁₀ = 1000001₂
3) 74₁₀ → X₂
74|0
37|1
18|0
9 |1
4 |0
2 |0
1 |1
0 |
74₁₀ → 1001010₂
