1. в комбинаторике при вычислении количества сочетаний из n элементов по k используется формула: = ! напишите код программы, используя функцию
для вычисления количества сочетаний. формула для вычисления факториала: n! = 1*2*3**n
! ( − )!
2. напишите программу, которая запрашивает у пользователя координаты точки и затем рисует квадрат размером 10х10, где введенная точка является координатой левого верхнего угла квадрата. рисование квадрата оформите в виде процедуры. для рисования ты можешь использовать следующие команды:
up() – поднять перо;
down() – опустить перо;
goto(x, y) – переместиться в точку с координатами (x, y).

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

if x< 10 then x: =10

else

  if x< 15 then x: = 16

  else x: = 20

для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет