Если считать, что в каждом варианте должна быть минимум одна курица или собака, то таких вариантов 15, а если можно считать, что кого-то из них 0, то 17.
Первый файл - без нулей, второй - с нулями
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
Длина=3
Всего цвета=3
На первое место можно поставить любой из 3 цветов,на второе и третье место тоже,тогда
3*3*3=27
Ответ:27
Var a, b, c, d:integer;
begin
Read(a);
b:=a mod 10;
c:=a mod 100;
d:=c div 10;
WriteLn(b*d);
end.