Решите задачу на языке Паскаль. Стороны прямоугольника ABCD вводятся с клавиатуры (а и в Найдите периметр прямоугольника. Результат вывести на экран.

Var

a, b, c :integer;

Begin

Write('Vvedite a i b :'); Readln(a,b);

c:=2*(a+b);

Writeln('Perimetr=',c);

Readln;

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.