Для передачи сообщения используется набор,состоящий только из десятичных цифр(0,1,2,3,4,5,6,7,8,9). Определите минимально возмож
оксана одинцова [7]
Цифр 10 значит минимум нужно 2^4=16 комбинаций из 4 бит.
Ответ - 4 бит
Var n,a,b:integer;
function sum(x,y:integer):integer;
var s,i:integer;
begin
s:=0;
for i:=x to y do s:=s+i*i;
sum:=s;
end;
begin
write('n = ');
readln(n);
writeln(n,'^2 + ',n+1,'^2 + ... + ',n+n,'^2 = ',sum(n,n+n));
write('a, b = ');
readln(a,b);
writeln(a,'^2 + ',a+1,'^2 + ... + ',b,'^2 = ',sum(a,b));
end.
Пример:
n = 5
5^2 + 6^2 + ... + 10^2 = 355
a, b = 5 10
5^2 + 6^2 + ... + 10^2 = 355
Program test;
var i,n,k,s1,es,al:integer;
s:string;
begin
write('Введите кол-во повторений:');
readln(n);
write('Введите строку:');
readln(s);
repeat
inc(k);
for i:=length(s) downto 1 do s:=s+s[i];
for i:=1 to length(s) do
if i mod 2 = 0 then
begin
es:=strtoInt(s[i])+1;
delete(s,i,1);
insert(InttoStr(es),s,i);
end;
writeln(k,') ',s);
until k=n;
for i:=1 to length(s) do
if StrtoInt(s[i]) mod 2 = 1 then inc(al);
writeln('Кол-во нечетных чисел: ',al);
<span>end.</span>
1 задача) 44000*16*60*2=10Мб
а для второй задачи я использовала ту же частоту и дискретизацию.
700Мб=5872025600 бит
t=5872025600/(44000*16*2)=4170 сек= 1час 9.5 мин
Поместиться 4 учебника
дискета=1.44 мб
1.44*1024/350=4 (остаток не считаем)