Var
a,b,c:integer;
Begin
write('Введите a,b,c (через пробел)');
Readln(a,b,c);
Write('Самое большое из них ');
if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.
d) 101₂ = 1*2²+0*2¹+1*2⁰ = 4+1 = 5₁₀
210₃ = 2*3²+1*3¹+0*3⁰ = 18+3 = 21₁₀
101₂ + 210₃ = 5₁₀ + 21₁₀ = 26₁₀
e) 404₆ = 4*6² + 0*6¹ + 4*6⁰ = 144 + 4 = 148₁₀
205₈ = 2*8² + 0*8¹ + 5*8⁰ = 128+5 = 133₁₀
404₆ - 205₈ = 148₁₀ - 133₁₀ = 15₁₀
f) 56₁₆ = 5*16¹+6*16⁰ = 80+6= 86₁₀
37₇ - <em>в 7сс число не может содержать цифры 7 в записи. Либо опечатка в задании, либо проверка на внимательность. </em>
Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>
Ответ:
информация это когда о чем-то дают какую-нибудь информацию.
Конечное а получается вычитанием из 29 исходного а, таким образом:
а=29-10=19