Function C(m,n:integer):integer;
begin
if (m=0)or(n=m) then C:=1
else C:=C(m,n-1)+C(m-1,n-1);
end;
var a,b:integer;
begin
readln(a,b);
writeln('C(',b,',',a,') = ',C(a,b));
end.
Пример:
5 10
<span>C(10,5) = 252</span>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(10).Where(x->x>0).Sum());
end.
Во вложении - рабочая книга Excel-2003, необходимая программа находится в проекте для первого листе (в коде кнопки).
1. 1101101 = 109
2. 223 = 147
3. 78 = 120
4. 137 = 10001001
Доп. задания
1. Побольше информации
2. 11011 + 111 = 100010