Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.