Даны длины катетов прямоугольного треугольника. Вычислить длину гипотезу и площадь. Написать программу и блок-схему.
var a,b,c,s: real;
begin
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=0.5*a*b;
write('Гипотенуза треугольника равна: ',c,', площадь равна: ',s);
end.
Вот программа
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,c,s: real;
begin
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=0.5*a*b;
write('Гипотенуза треугольника равна: ',c,', площадь равна: ',s);
end.
Вот программа