В расширенной записи двухзначное число в 14-ричной системе счисления записывается в виде N = 14*a+b, a,b=0,1,2,..13
Если число N оканчивается на 8, то N = 14*a+8
Эта формула порождает ряд чисел: 8, 22, 36, 50, 64, 78 ... но 78 > 70, поэтому ответом будет ряд чисел 8, 22, 36, 50, 64.
4 бита
каждый принимает по 2 значения
значит всего вариантов 2*2*2*2 = 16
Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv
Ответ. 2
всего 4 монеты, значит информации нужно получить
бита, одно взвешивание на весах равносильно одному биту, потому что уменьшаем незнание в двое (т.е. какая из двух чаш легче), значит нужно не менее двух взвешиваний.
Var a:array[1..101] of integer;
b:array[1..101] of integer;
i,q,s,l,m:integer;
n:real;
begin
i:=1;
q:=1;
l:=1;
while q<>0 do
begin
write ('Введите ',i,' число: ');
read (a[i]);
q:=a[i];
i:=i+1;
s:=i-2;
end;
for i:=1 to s do
begin
if a[i] mod 8 = 0 then
begin
b[l]:=a[i];
m:=l;
l:=l+1;
end;
end;
for l:=1 to m do
begin
n:=n+b[l];
end;
n:=n/m;
if l=1 then write ('NO') else write ('Среднее африметическое = ',n:0:1);
end.