uses crt;
var n,k,a,b:string;
begin
write('Введите четырёхзначное число: ');
readln(a);
n:=copy(a,1,2);
k:=copy(a,3,2);
b:=k+n;
writeln(b);
end.
Python 3.7.2
some_list = [int(input()) for i in range(int(input('list range: ')))]
EvenSumm = 0 #Сумма чётных
#Ищем сумму чётных
EvenSumm = sum(list(filter(lambda x: x % 2 == 0, some_list)))
#Среднее арифметическое закачивающихся на 5
endswithfive = list(filter(lambda x: x % 10 == 5, some_list))
endswithfive_average = sum(endswithfive) / len(endswithfive)
#Поиск чего то, равного х
something_equal_x = some_list[some_list.index(int(input('x = ')))]
#Маскимум и его индекс
max_ind = some_list.index(max(some_list))
max_and_his_index = (max(some_list), max_ind)
print(f'''
Answers:
a) Even Summ: {EvenSumm}
b) Average of nums, ends with '5': {endswithfive_average}
c) something, equal x: {something_equal_x}, placed under index: {some_list.index(something_equal_x)}
d) maximum and his index: {max_and_his_index}
''')
P.S - Скопированый код может не работать. Это нормально, сайт портит отступы. Код протестирован, работает. Приложен скриншот программы и вывода для придуманных на ходу входных данных
1) 15
Есть переменные n=3 и d=n*3. В цикле к переменной d добавляется значение i(от 1 до 3, сумма всех - 6), d=9+6=15. В конце выводится переменная d.
2) 204
Объявляются переменные k и m. Создается массив из 12 элементов, им присваивается значение. В цикле в if идет присвоение каждому элементу массива значения 17(не сравнение, так как сравнение "=="), после к переменной m прибавляется значение элемента массива(то есть всегда 17, так как в условии не сравнение). Имеем 12 элементов, каждый из которых больше предыдущего на 17. В конце выводится переменная m равная последнему элементу массива - 204.
var
s: string;
begin
read(s);
if length(s) >= 4 then
writeln(s[3] + s[4] + s[1] + s[2]);
end.