Решите задачку по информатике

Задачка на фотографии

1С7₁₆ = 111000111₂ = 707₈ = 455₁₀

Объяснение:

1С7₁₆ делим на цифры и переводим в 2 СС

1₁₆ = 1₁₀ = 1₂ (не добавляем впереди 0, чтобы число занимало 4 позиции, т.к. число будет первым)

С₁₆ = 12₁₀ = 1100₂

12 / 2 = 6 + остаток 0

6 / 2 = 3 + остаток 0

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

7₁₆ = 7₁₀ = 111₂ = 0111₂ (добавляем впереди 0, чтобы число занимало 4 позиции)

7 / 2 = 3 + остаток 1

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

1С7₁₆ = 111000111₂ (собираем всё вместе)

111000111₂ - делим на тройки начиная с конца и переводим в 10 СС

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

000₂ = 0₁₀

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

записываем снизу вверх и получаем 8 СС

1С7₁₆ = 707₈

707₈ = 7 * 8² + 0 * 8¹ + 7 * 8⁰ = 7 * 64 + 7 * 1 = 448 + 7 = 455₁₀

1С7₁₆ = 455₁₀

1С7₁₆ = 1 * 16² + С * 16¹ + 7 * 16⁰ = 1 * 256 + 12 * 16 + 7 * 1 = 256 + 192 + 7 = 455₁₀

Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
 Write('Введите число A: '); 
Readln(a);
 Write('Введите число B: '); 
Readln(b); 
Write('Введите число C: '); 
Readln(c); 
If  a>=b then max:=a
 else 
 max:=b;   
 If c>max then
max:=c; 
r:=a+b+c;
 If (A>B) and (B>C) and (C>0) then
 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then
  begin   
A:=max;   
 B:=max; 
  C:=max; 
Writeln('A= ',a,' B= ',b,' C= ',c); 
   end   
else   
 Writeln('Symma: ',r);
end.