1) 11001000
2) 111101001
3) 1000011111
4) 1110110110
5) 10000000001
Решение:
например число 489
Каждое из полученных чисел дели на 2
489=244*2+1
244=122*2+0
122=61*2+0
61=30*2+1
30=15*2+0
15=7*2+1
7=3*2+1
3=1*2+1
2=2*1
Записываем в обратном порядке выделенные числа и получаем 111101001
P.S. для правильности следует записать все вычесления в столбик
//Pascal ABC
//Вывод чисел кратных 3 на промежутке от 0 до 50
var
i:integer;
begin
for i:=0 to 50 do begin
writeln(i);
i:=i+2;
end;
end.
<span>1) [2,4] + [1,3,5] = [1,2,3,4,5]
2) </span><span>[1,2,3,4,5] - [1,2,4] = [3,5]
3) [1,3,5] * [3,5] = [3,5]
<em><u>Ответ:</u></em> 2 элемента
</span>
Var
e, a, s: real;
i: integer;
begin
write('Введите точность Е ');
readln(e);
a := 0;
s := a;
i := 0;
repeat
i := i + 1;
a := 1 / sqr(sqr(i));
s := s + a;
until abs(a) < e;
writeln(s);
end.
Инф.объем = частота * время * разрядность * кол-во дорожек
1 мин = 60 сек
Дорожка 1 (т.к. В условии не сказано что их несколько)
1,3 мб = 1,3*1024*1024*8 бит
1,3*1024*1024*8 = частота * 60 * 8 * 1
1,3*1024*256 = частота * 15
Частота =1,3*1024*256 / 15
Осталось посчитать