Program factors;
var
num, sum : word;
st : string;
j : byte;
function fact(a : byte) : word;
var
res : word;
i : byte;
begin
res:=1;
for i:=1 to a do
res := res*i;
writeln(a, '!=', res);
fact := res;
end;
function vl(a : char) : byte;
var
res : byte;
begin
val(a, res);
vl := res;
end;
begin
write('Введите число: ');
readln (num);
str(num, st);
sum:=0;
for j:=1 to length(st) do
sum := sum + fact(vl(st[j]));
writeln('Сумма факториалов цифр числа равна: ', sum);
end.
Тестовый прогон программы:
Введите число: 125
1!=1
2!=2
5!=120
Сумма факториалов цифр числа равна: 123
0 - целый тип
"25" - строковый
4 - целый
"мел" - строковый
2,8 - вещественный
-2 - целый
-18 | 36 | 0 | -3 | 4 | 15 |
-18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве).
36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве).
0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве).
-3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве).
4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве).
15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
Рисунок маленький получился, но по идее видно , всего способов добраться 46
Ответ: 46
1 двоичное число = 1 бит
4 штуки вместятся в 2 бита
значит 2 двоичных числа/цифр
