Определим минимальную кодировку. Это делается так: i - это кол-во бит. Например тут i = 2, этого хватило бы для 3 спортсменов. то есть 9 бит хватило бы для 511 спортсменов. А нам надо 779. Значит увеличиваем кол-во бит Этого хватило бы для 1023 спортсменов. Нам хватает.
Значит минимальное кол-во бит для кодирования - 10 У нас а каждая запись кодируется 10 битами, значит умножив 280 на 10, мы найдём объём всех записей. 280 * 10 = 2 800 бит ответ: 2 800 бит или 350 байт.
Program lol (input, output); var a, n, b, i, p,s,g m:integer; c:real; begin n:=Random(10000); writeln (n); a:=n; b:=0; c:=0; p:=1; g:=1; while a <> 0 do begin a:=a div 10; b:=b+1; end; while b <> 0 do begin p:=1; for m:=1 to b do p:=p*10; s:=(n mod p) div (p div 10); c:=c+s; g:=g*s; b:=b-1; end; writeln (c); writeln (g); end.
program lol (input, output); var a, b, i, z:integer; begin b:=0; a:=3; z:=0; while a > 2 do begin read (a); z:=0; for I:=2 to a do begin if a mod I = 0 then begin z:=z+1; if (a=I) and (z=1) then b:=b+1; end; end; end; writeln (b); end.
спортсменов
Определим минимальную кодировку.
Это делается так:
Например
Значит минимальное кол-во бит для кодирования - 10
У нас а каждая запись кодируется 10 битами, значит умножив 280 на 10, мы найдём объём всех записей.
280 * 10 = 2 800 бит
ответ: 2 800 бит или 350 байт.
var a, n, b, i, p,s,g m:integer;
c:real;
begin
n:=Random(10000);
writeln (n);
a:=n;
b:=0;
c:=0;
p:=1;
g:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
g:=g*s;
b:=b-1;
end;
writeln (c);
writeln (g);
end.
program lol (input, output);
var a, b, i, z:integer;
begin
b:=0;
a:=3;
z:=0;
while a > 2 do
begin
read (a);
z:=0;
for I:=2 to a do
begin
if a mod I = 0 then
begin
z:=z+1;
if (a=I) and (z=1) then
b:=b+1;
end;
end;
end;
writeln (b);
end.