Задание ** фото. Решите информатическую задачу и запишите её в Паскале заранее благодарю.

Question

Задание на фото. Решите информатическую задачу и запишите её в Паскале заранее благодарю.

---

Answer 1

Решение задачи в приложенном файле

Answer 2

Var a,b,h,c,p:real;
begin
write('Введите a,b,h:')
readln(a,b,h);
p:=a+b+2*(sqrt(sqr((b-a)/2)+sqr(h));
write('p=',p)
end.