1. Необходимо составить программу для определения типа четырехугольника, у которого две стороны параллельны

Хорошо, рассмотрим первую задачу.

Для решения данной задачи нам понадобится определить тип четырехугольника на основе данных об углах. Воспользуемся следующей логикой:

- Если сумма углов "х" и "у" равна 180 градусов, то данный четырехугольник является прямоугольником, так как в прямоугольнике сумма всех углов равна 360 градусов, а в данной задаче сумма углов составляет половину. Следовательно, отображаем ответ: "Данный четырехугольник - прямоугольник."

- Если сумма углов не равна 180 градусов, то нужно проверить соотношение углов "х" и "у". Если они равны, то это равнобедренная трапеция, так как в равнобедренной трапеции смежные углы равны. Отображаем ответ: "Данный четырехугольник - равнобедренная трапеция."

- Если сумма углов не равна 180 градусов и углы "х" и "у" не равны, то нужно проверить, являются ли данные углы прямыми. Если один из углов равен 90 градусов, а сумма остальных углов равна 180 градусов, то это прямоугольная трапеция. Отображаем ответ: "Данный четырехугольник - прямоугольная трапеция."

- Если ни одно из условий не выполняется, то это обычная трапеция или параллелограмм (в зависимости от значений углов). Отображаем ответ: "Данный четырехугольник - обычная трапеция или параллелограмм."

Теперь перейдем ко второй задаче.

Задача 2. Перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная "p" после выполнения программы, если пользователь вводит число 7?

program ol;
var a, b, h: integer;
begin
writeln("Введите переменную a:");
readln(a);
writeln("Введите переменную b:");
readln(b);
h := (a + b) div 2;
p := a + b + h;
writeln("После выполнения программы, значение переменной p равно: ", p);
end.

Ответ:

Переписанная программа без ошибок выглядит следующим образом:

program ol;
var a, b, h, p: integer;
begin
writeln("Введите переменную a:");
readln(a);
writeln("Введите переменную b:");
readln(b);
h := (a + b) div 2;
p := a + b + h;
writeln("После выполнения программы, значение переменной p равно: ", p);
end.

После выполнения данной программы, значение переменной "p" будет равно сумме переменных "a", "b" и "h".

Если пользователь вводит число 7, то выполнение программы приведет к следующему результату:
1) Вывод на экран: "Введите переменную a:".
2) Ввод пользователем значения a = 7.
3) Вывод на экран: "Введите переменную b:".
4) Ввод пользователем значения b = 7.
5) Вычисление значения h: h = (7 + 7) div 2 = 14 div 2 = 7.
6) Вычисление значения p: p = 7 + 7 + 7 = 21.
7) Вывод на экран: "После выполнения программы, значение переменной p равно: 21".

Таким образом, значение переменной "p" после выполнения программы при вводе числа 7 будет равно 21.