Составте программу вычисления площади треугольника с основанием а и высотой h. значение a и h введите с клавиатуры.

Var   a, h, s: real; begin   write('введите значения основания и высоты треугольника: ');   readln(a, h);   s : = a * h / 2;   writeln('площадь треугольника равна ', s) end. тестовое решение: введите значения основания и высоты треугольника: 15.4 7.3 площадь треугольника равна 56.21

Function power (a: real; n: longint): real; var   i: longint;   p: real; begin   if n=0 then power: =0   else begin       p: =a;       for i: =2 to n do p: =p*a;       power: =p       end end; var   a: real;   n: integer; begin   write('введите основание и показатель степени: ');   read(a,n);   writeln('результат: ',power(a,n)) end. пример введите основание и показатель степени: 13.64 6 результат: 6440005.25769131

14 16 18 5 6 7

Объяснение:

Рассмотрим i от 7 до 9 - все это числа попадают под условие блока else (потому что не будет выполняться условие i >= 10, а там стоит оператор and, то есть для выполнения условия необходимо две истины)

Таким образом, сначала вывод будет таким:

14 16 18

То есть 7 • 2, 8 • 2, 9 • 2.

Далее рассмотрим числа от 10 до 14. Сразу понимаем, что эти числа попадут в блок if, в котором проверяется четность числа и то, больше ли оно 10. Все эти числа больше 10. Выбираем чётные: 10, 12, 14.

Таким образом, конечный вывод будет таким:

14 16 18 5 6 7