var
n : integer;
S : decimal;
function fac(n : integer) : decimal;
begin
result := 1;
for var i := 1 to n do result := result * i;
end;
begin
write('введите n = ');
readln(n);
for var i := 1 to n do S := S+fac(i);
writeln('S=', S);
end.
Ответ предоставлен в файле для лучшей читаемости кода.
А 000
Б 001
В 010
Г 011
Д 100
И так получаем ДГБАВ = 100 011 001 000 010
Переводим в 8 систему получаем 43102
Переводим в 16 систему получаем 4642
Ответ: 43102 в 8 и 4642 в 16
2)Маша она точна купит заколку
Делим на 2^13. Получаем 1 Кб