Исполнитель Чертежник перемещается на координатной плоскости, оставляя след в виде линии.

Чертежник может выполнять команду сместиться на (a, b) (где a, b - целые числа), перемещающую его из точки с координатами (x, y) в точку с координатами (x+a, y+b). Если числа a, b положительные, значение соответствующей координаты увеличивается, а если отрицательные - уменьшается.

Запись

нц <число повторений> раз
<тело цикла>
кц

означает, что команды, образующие тело цикла, повторяются указанное число раз.

Чертежнику был дан для исполнения алгоритм:

сместиться на (10, 15)

нц 5 раз

Команда1

сместиться на (-3, -5)

кц

После выполнения этого алгоритма Чертежник вернулся в исходную точку. Какую из следующих команд надо поставить вместо команды Команда1?

сместиться на (2, 1)
сместиться на (1, 2)
сместиться на (-2, -1)
сместиться на (-1, -2)

Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления. Можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. Подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. Данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2). Затем проверяем остаток от деления одной переменной на другую. Если 0 - "Yes", иначе - "No" For i=5 downto 1 do If i Mod 2 = 1 then a:= a+n div (10^(i-1)) mod 10 Else B=B+ div (10^(i-1)) mod 10;

Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}
    
    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);
    
    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);
    
    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();
    
    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
    
    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();
    
    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();
    
    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
    
    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.