Var i,k,n: integer;
begin
for i:=100 to 999 do
begin
k:=i; n:=0;
repeat
n:=n+round(power(k mod 10,3));
k:=k div 10;
until k=0;
if n=i then write(i,' ');
end;
end.
153 370 371 407
16 Кбайт = 16*1024 байт = 16*1024*8 бит
Память для одного пикселя: 16*1024*8 / (128*128) = 8 бит
Число цветов = 2^8 = 256
1) узнали, что наш друг живет на 5 этаже.
2) узнали, что тот дом, в котором он живет, шестнадцати этажный.
3) узнали, что он живет во 2 подъезде.
4) узнали, что в доме 8 подъездов.
Ответ: всего мы узнали 4 информации.
<span>а) 111000111 (2) = 455 (10)
б) </span><span>100011011 (2) = 283 (10)
в) </span><span>1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) </span><span>1001001 (2) = 73 (10) и 11 (2) = 3 (10)</span>
В двоичной системе счисления дробного числа быть не может
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150