Ето о чем-то рассказывается, о чём то повествуется, о чём то повидомляется
<span>Переводим целую часть числа. Заменяем каждый разряд на код двоичной СС.
</span><span>0000 0
</span><span>0001 1
</span><span>0010 2
</span><span>0011 3
</span><span>0100 4
</span><span>0101 5
</span><span>0110 6
</span><span>0111 7
</span><span>1000 8
</span><span>1001 9
</span><span>1010 A
</span><span>1011 B
</span><span>1100 C
</span><span>1101 D
</span><span>1110 E
</span><span>1111 F
В итоге получится: </span>1111101001010110
Я как-то не понял про "1 страница содержит 50 страниц" ;)
B) End. завершает команду выбора
Var a:array[1..10000] of integer;
n,i,max,k:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; k:=1;
for i:=2 to n do
begin
if a[i]>max
then begin max:=a[i]; k:=1; end
else if a[i]=max then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
<span>6
1 2 3 2 3 3
k = 3</span>