Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}
Пусть чертежник изначально стоял в точке (0;0).
Выполняем алгоритм:
сместиться на(-3;-6) - чертежник будет в точке (-3;-6)
Дальше идет цикл, выполняющийся три раза.
Пусть команда1 будет такой: сместиться на(x;y).
Тогда за один проход цикла чертежник будет в точке (x+2+3;y-5+3)=(x+5;y-2)
За три прохода цикла чертежник будет в точке (3(x+5);3(y-2))=(3x+15;3y-6)
и не забываем, что до цикла, чертежник был в точке (-3;-6):
(3x+15-3;3y-6-6)=(3x+12;3y-12)
И теперь ему надо вернуться в исходную точку, т.е в точку (0;0).
3x+12=0
3x=-12
x=-4
3y-12=0
3y=12
y=4
При x=-4 и y=4 чертежник из точки (3x+12;3y-12) попадет в точку (0;0).
Ответ: 4) Сместиться на (-4;4)
n = input() # n тут берется как строка(слово)
composition= 1
summa = 0
mult=0
h=0
for i in n: #читает каждый элемент строки по 1 символу
summa += int(i) #Складывает каждый элемент где int() - превращает символ в цифру
if int(i) != 0 and int(i)%2==0:
composition *= int(i)
if int(i)%3==0 and int(i)!=0:
mult+=1
h+=1 # - для кол-ва цифр в числе
print("\nсумма: ", summa)
print("Кратные числа трем: ", mult)
print("произведение четных : ", composition)
print("Среднее арифметическое цифр: ",str(round((summa/h),1))) #round помжно убрать, округлил до 1 знака после запятой
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.