1. сколько существует четырехзначных чисел, составленных из разных четных цифр? 2. в вазе лежат яблоко, груша, персик и абрикос. кате разрешили выбрать два каких-то фрукта. сколько у кати вариантов выбора? 3. в чемпионате по шахматам участвовало 40 спортсменов. каждый с каждым сыграл по одной партии. сколько всего партий было сыграно?

1) всего есть 4 чётных цифры => мощность алфавита = 4, тогда, 4^4=256 2)количество вариантов = факториалу числа объектов, значит, 4! =24 3)program p1; var i,s: integer; begin for i: =40 downto 2 do      s: =s+i-1; write(s); end.ответ: 780

Var    i, n: integer; b: array[1..3] of integer; begin    write('type integer: ');     readln(n);     if n< 0 then        n: =-n; // уничтожение знака числа      repeat    i: = i + 1;         b[i] : = (n mod 10); // вывод последней цифры числа        n: = n div 10; // удаление последней цифры числа    until n=0;     if b[3] > b[2] thenwriteln('цифра сотен больше десятков ',b[3] - b[2])elsewriteln('цифра сотен меньше десятков ',b[2] - b[3]); if b[2] > b[1] thenwriteln('цифра десятков больше единиц ',b[2] - b[1])elsewriteln('цифра десятков меньше единиц ',b[1] - b[2]); end.

Var    i, n: integer; b: array[1..3] of integer; begin    write('type integer: ');     readln(n);     if n< 0 then        n: =-n; // уничтожение знака числа      repeat    i: = i + 1;         b[i] : = (n mod 10); // вывод последней цифры числа        n: = n div 10; // удаление последней цифры числа    until n=0;     if b[3] > b[2] thenwriteln('цифра сотен больше десятков ',b[3] - b[2])elsewriteln('цифра сотен меньше десятков ',b[2] - b[3]); if b[2] > b[1] thenwriteln('цифра десятков больше единиц ',b[2] - b[1])elsewriteln('цифра десятков меньше единиц ',b[1] - b[2]); end.