Геометрия мен Turbo Packal

Question

Тік бұрышты ұшбырыштың берілген екі катеті бойынша оның гипотенузасы мен ауданын анықтау программасын құрып беріңіздерші!

Answer 1

var a,b,c,s:real;
Begin
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=(a+b)/2;
write('gepatenuza',c);
write('audan',s);
readln;
End.
немесе қысқаша былай:
var a,b:real;
Begin
read(a,b);
write('gepatenuza ',sqrt(sqr(a)+sqr(b)));
write('audan ',(a+b)/2);
readln;
End.