3425(двоич<span>ная - 110101100001),
</span>
10111011001001(дeсятич<span>ная - 11977),
</span>6ADC(троичная - <span>1101112012),
54366(двоич</span>но-дeсятичная - <span>1010111111100).</span>
<span>
</span>
var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
V=A(длина)*B(ширина)*b(битовая глубина)
V=800*600*24=1440000байт
1440000*4=5625Кбайт
Чтобы сравнить, элементарно переведем в десятичную систему счисления:
65₈=6*8^1+5*8^0=48+5=53₁₀
53₇=5*7^1+3*7^0=35+3=38₁₀
Значит, 53₇<65₈
Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.