//PascalABC.NET 3.2 сборка 1318
Var
x1,y1,x2,y2,x3,y3,r,count:integer;
begin
read(x1,y1,x2,y2,x3,y3,r);
if sqr(x1)+sqr(y1)=sqr(r) then inc(count);
if sqr(x2)+sqr(y2)=sqr(r) then inc(count);
if sqr(x3)+sqr(y3)=sqr(r) then inc(count);
writeln(count);
end.
Пример ввода:
0 1 1 0 -1 0 1
Пример вывода:
3
Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
Обозначим:
N - мощность алфавита;
V - объем сообщения (в битах);
K - количество букв в сообщении;
i - количество бит на 1 символ.
Формулы:
N = 2^i;
i = V/K
Переведем объем из КБ в байты: 35* 8 * 1024 = 286720 бит.
Чтобы найти мощность алфавита, нужно найти количество бит на символ. Используем формулу: i = V/K.
i = 286720 бит/71680 симв. = 4 бита.
Зная i, можем найти мощность алфавита: N = 2^i.
N = 2^4 = 16.
Ответ: 16.