Написать программу в паскале Найти периметр и площадь прямоугольного треугольника, если...

Question

Написать программу в паскале
Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.

Answer 1

Program enot;
Var a,b: integer;
c,p,s:real;
begin
write('введите катеты: ');
read(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=(a+b)/2;
writeln('perimetr = ',p:5:2,'ploschad = ',s:5:2);
end.

Answer 2

Program zadanie;
Uses crt;
Var  a,b: integer;
c,p,s:real
Begin
Clrscr;
Writeln('введите а и b');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
p:=a+b+c;
s:=1/2*a*b;
writeln(‘s=’,s:4:2,’p=’,p:4:2);
Readln;
end.