Хотя бы:
X - механика
Y - {кинематика, динамика, статика}
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 d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.
Пример:
<span>Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать</span>
Использовать Робот
алг
нач
нц пока слева стена
закрасить
вниз
кц
закрасить
влево
нц пока сверху стена
закрасить
влево
кц
кон
Dim b(4,2)
for i=1 to 4 step 2
for j=1 to 2
b(i,j)=int(RND*10-8)
print b(i,j);
next j
print
next i
kol=0
for i=1 to 4 step 2
for j=1 to 2
if b(i,j) mod 3=0 then
kol=kol+1
end if
next j
next i
print kol