//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
тот кто пишет начальное число конечно. напиши 19 и второй проиграл
Задача 1). Для исполнителя Чертежник в этой задаче надо подставить вместо x значение a, аналогично для y подставляем значение b
получим:
<span>(X+2, Y+9)
</span>Задача 2). Аналогично для второго задания<span>. Только надо начинать со второй команды, чтобы вернуться в точку (1,1).
переведи в точку(4,2)
переведи в точку(7,6)
переведи в точку (1,1)
</span>
Задача 3)<span>. </span>В этой задаче надо просто подставить числовые значения из левого столбца таблицы в правый столбец:<span>
(x+1,y+4)
(x+6,y+8)
(x+2,y-5)
Задача 4). В этой задаче необходимо сдвигать перо чертежника по вертикали и по горизонтали.
сдвинь на вектор(0,9)</span>
<span>сдвинь на вектор(9,0)</span>
<span><span>сдвинь на вектор(0,9)</span>
</span>
Ответ:
10
Объяснение:
Ответом на данную задачу является биномиальный коэффициент С(n,k) С(5,3) , в данном случае он равен 10.