C1
+CA
------
18B₁₆ = 1 1000 1011₂ = 110 001 011₂ = 613₈
Как все это получается?
Сначала складываем в столбик шестнадцатиричные числа.
Для этого нужно помнить, что А₁₆=10, B₁₆=11, C₁₆=12, D₁₆=13,
E₁₆=14, F₁₆=15.
A₁₆+1 = B₁₆. Тут все понятно, после А₁₆ идет В₁₆.
С₁₆+С₁₆ = 12₁₀+12₁₀=24₁₀ и теперь надо снова вернуться к шестнадцатиричному числу. 24 - это 16+8, 16₁₀=10₁₆, поэтому 24₁₀=10₁₆+8₁₆ = 18₁₆. Получаем ответ 18B₁₆
Теперь переводим его в двоичную систему, для чего каждую цифру заменяем четырьмя двоичными (16=2⁴). А 8=2³, поэтому теперь справа налево разбиваем число на группы по 3 двоичных разряда и заменяем каждую группу восьмеричной цифрой.
1) Возьми 3 (=3).
2) прибавь 3 (=6).
2) умножь на 3 (=18).
Если только указанные команды, то
1. Умножь на 2 (=6).
2. Умножь на 2 (=12).
3. Вычти 3 (=9).
4. Умножь на 2 (=18).
1) <span>I III V VII
2) </span><span>13,5
3) 340
4) 15410</span>
В задании требуется ввести код программы, описанной на странице 228 учебника и надо изменить программу так, чтобы она считала отклонения средней температуры каждого месяца от среднегодовой величины, должно получиться так:
Program Temperature;
var T: array[1..12] of real;
Dt:array[1..12] of real;
i:integer; Tsred:real;
begin
for i:=1 to 12 do begin
write('T[',i:2,'] = ');
readln(T[i]);
end;
Tsred:=0;
for i:=1 to 12 do
Tsred:=Tsred+T[i];
Tsred:=Tsred/12;
Writeln('Среднегодовая температура = ',Tsred:6:2);
for i:=1 to 12 do begin
Dt[i]:=T[i]-Tsred;
writeln('Dt[',i:2,']',Dt[i]:6:2);
end;
end.
Ну а результаты получите, когда запустите программу.
Ответ:
Var a, i:integer;
Begin
Writeln('Введите число') ;
Read(a) ;
For i:=1 to 9 do writeln( a, '*', i, '=', a*i) ;
End.
