Бесконечно поле есть горизонтальные вертикальные стены правый конец горизонтальной стены с идёт с нижним концом вертикально стены длина стен Неизвестный в каждой стране есть ровно один проход это что точное место прохода его ширина неизвестно робот находится в клетке расположенный непосредственно слева от виде картины у её нижнего конца нарисую один сможешь после расположения стены роботы роботы напишите Доработал горит за окрашивающие все клетки расположены непосредственно выше горизонтальной стены или вертикально стены проход должны остаться не закрашенными робот должен закрасить только клетки удовлетворяющие данному слове например для приведённого выше рисунка робот должен закрыть следующие клетки смотрите рисунок при исполнении алгоритма робот не должен разрушаться выполнения алгоритма должно завершиться конечно расположение робота может быть произвольным Алгорим должен решать задачу для любого допустимого расположение стенки любого расположения размера проходим внутри стен алгоритм может быть среди формального исполнителя или записать текстом редакторе

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.

C++:

Первая задача. Вторую заливайте отдельно.

#include "pch.h"

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "Russian");

int n;

p:

cout << "Введи трехзначное число: "; cin >> n;

if (n > 999 || n < 100)

{

 cout << "Это не трехзначное число" << endl;

 goto p;

}

int r = n % 3;

if (r == 0)

{

 cout << "Число кратно трем. Первая цифра этого числа: " << (n - n % 100) / 100 << endl;

}

else

{

 cout << "Число не делится на три. Сумма первых двух цифр равна: " << (n - n % 100) / 100 + (n % 100 - (n % 100) % 10) / 10 << endl;

}

}