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>
<span>srednee:=(a+b)/2; наверное.
</span>
Входы: клавиатура, мышь
<span>Выходы: монитор, принтер, колонки</span>
Система управления базами данных
<span>Это может быть Access или SQL Server</span>
Var
procedure kamen(x, y:integer);
{здесь рисуете свой камень. вместо координат х и у}
begin
{я опишу только анимацию камня. с графикой давно не работал-успел забыть}
x:=300;
y:=400;
while y<>700 do
if y<200 then begin
x:=x+15;
y:=y+10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y)
else
x:=x+15;
y:=y-10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y);
end;
closegraph;
readln;
end.
все числа нужно подогнать на практике