15.1 На бесконечном поле имеются две перпендикулярные друг другустены, расположенные в виде буквы «Т», длины стен неизвестны.Робот находится в клетке, расположенной непосредственно надгоризонтальной стеной. На рисунке указан один из возможных расположения стен и Робота (Робот обозначен буквой «Р»Напишите для Робота алгоритм, закрашивающий все клетки, расположенные непосредственно с правой стороны вертикальнойстены. Робот должен закрасить только клетки, удовлетворяющиеданному условию. Например, для приведённого справа рисунка Роботдолжен закрасить следующие клетки (см. рисунок).При исполнении алгоритма Робот не должен разрушиться, выполнениеалгоритма должно завершиться. Конечное расположение Робота можетбыть произвольным. Алгоритм должен решать задачу для любогодопустимого расположения стен и любого расположения и размерапрохода внутри стены. Алгоритм может быть выполнен в средеформального исполнителя или записан в текстовом редакторе.15.2 Напишите программу, которая в последовательности натуральных чисел определяет сумму всехчисел, кратных 3 и оканчивающихся на 9. Программа получает на вход натуральные числа, количествовведённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончанияввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа непревышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 иоканчивающихся на 9.Пример работы программы:Входные данные Выходные данные162956939048​

number = int(input())

last_number = 0

even = 0

odd = 0

while (number > 0):

   last_number = number % 10

   if (last_number % 2 == 0):

       even += 1

   else:

       odd += 1

   number //= 10

print("Even = ", even, "Odd = ", odd)

Объяснение:

number = int(input())  // Объявление + ввод переменной

last_number = 0  // Переменная для хранения последней цифры числа

even = 0  // Количество четных

odd = 0  // Количество нечетных

while (number > 0):  // Пока число > 0

   last_number = number % 10  // Получаем последнюю цифру числа

   if (last_number % 2 == 0):  // Если цифра делится на 2 без остатка

       even += 1  // В переменную even делаем + 1

   else:  // Иначе

       odd += 1  // В переменную odd делаем + 1

   number //= 10  // Удаляем последнюю цифру числа

print("Even = ", even, "Odd = ", odd) // Вывод

Начало отсчета лет - 1984 год. Надо написать программу (pascalABC). Вводите год, нужный вам, отнимаете от него 1984 и находите остаток от деления на 12. Последовательность животных в 12-летнем цикле - крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака, свинья. То есть если при делении на 12 остаток равен 0, значит введенный год - год крысы, если 1 - год коровы и т.д.

Программа: 

var a,b,c:longint;
begin
write('Введите год: ');
readln(a);
c:=a-1984;
b:=c mod 12;
case b of
0:writeln(a,' - год крысы');
1:writeln(a,' - год коровы');
2:writeln(a,' - год тигра');
3:writeln(a,' - год зайца');
4:writeln(a,' - год дракона');
5:writeln(a,' - год змеи');
6:writeln(a,' - год лошади');
7:writeln(a,' - год овцы');
8:writeln(a,' - год обезьяны');
9:writeln(a,' - год курицы');
10:writeln(a,' - год собаки');
11:writeln(a,' - год свиньи');
end;
end.