Question

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

Answer 1

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.

Answer 2

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

05aa11745ac112e8f9b760894e6f28b2.pas