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>
Var i, j, k: integer;
begin
j := 1;
k := 3;
while (i < 12) do
begin
writeln(j, '/', k, '=', j/k:1:3);
j := j + 2;
k := k + 3;
inc(i);
end;
<span>end.</span>
использовать Робот
алг
нач
нц пока справа свободно
выбор
при снизу стена :вправо
иначе закрасить
вниз
закрасить
вверх
вправо
все
кц
закрасить
вниз
закрасить
вниз
вниз
нц пока слева свободно
выбор
при снизу стена :влево
иначе закрасить
вниз
закрасить
вверх
влево
все
кц
закрасить
вниз
закрасить
вниз
вниз
нц пока справа свободно
выбор
при снизу стена :вправо
иначе закрасить
вниз
закрасить
вверх
вправо
все
кц
закрасить
вниз
закрасить
кон
(на закрепе начальная обстановка)
(121<x²)→(x>x+5)=1 (A→B=¬A+B)
(x²≤121)+(x>x+5)=1 (при x>0 x>х+5=0)
x²≤121=1
x=11
ответ 11