Выберите верные утверждения из списка 1
Для каждого объекта можно сделать только один ярлык

2
Ярлыки можно создавать только для текстовых документов

3
Ярлыки нельзя создавать для графических файлов

4
Если удалить или переместить объект, на который ссылается ярлык, то ярлык останется, но будет нерабочим

5
Ярлык можно создать для любого объекта - диска, папки, программы, документа

Перевод из двоичной системы счисления в десятичную
Задание: Перевести число 11011012 в десятичную систему счисления.

Для перевода записываем данное число в общем виде:
1·2^6+1·2^5+0·2^4+1·2^3+1·2^2+0·2^1+1·2^0=
=1·64+1·32+0·16+1·8+1·4+1·0+1·1=10910

ответ: 11011012=10910

Перевод из восьмеричной системы счисления в десятичную
Задание: Перевести число 1738 в десятичную систему счисления.

Для перевода записываем данное число в общем виде:
1·8^2+7·8^1+3·8^0=1·64+7·8+3·1=12310

ответ: 1738=12310

Перевод из шестнадцатиричной системы счисления в десятичную
Задание: Перевести число 2А3С16 в десятичную систему счисления.

Для перевода записываем число в общем виде (обратим внимание на то, что букве А соответствует значение 10, а букве С - 12):
2·16^3+10·16^2+3·16^1+12·16^0=2·4096+10·256+3·16+12·1=1081210

ответ: 2А3С16=1081210

var s,s1:string;

i,j,count:integer;

begin

read(s);

for i:=length(s) downto 2 do

for j:=2 to i do

if s[j]<s[j-1] then begin

swap(s[j],s[j-1]);

s1:=s;

end;

//сортируем строку в алфавитном порядке чтобы потом было легче

//считать количество встреч одного и того же символа

count:=1;

write(s1[1],': ');

//первый символ в любом случае встречается один раз

for i:=2 to length(s1) do

if s1[i]=s1[i-1] then inc(count) else begin

writeln(count);

write(s1[i],': ');

count:=1

end;

//считаем количество совпадений для каждого символа

writeln(count);

end.