Вычислить периметр

[Лика505]

Вычислите периметр и площадь прямоугольного треугольника по длинам двух его катетов.

Помогите решить пожалуйста, очень надо!!

[Аватар]

Лика505, проблема в чем - в геометрии 7-го класса или прогу написать (язык хоть тогда укажите, на ассемблере подойдет?)

[Лика505]

нужно решить данную задачку в паскале

[whatever]

Ну вы даете...

//площадь
S:=(katet1*katet2)/2;
//периметр
gipotenuza:=sqrt(sqr(katet1)+sqr(katet2));
perimetr:=gipotenuza+kate1+katet2;

[BDA]

uses CRT;

var
  a,b,s,p:real;

begin
  writeln('Input A, B:');
  readln(a,b);
  s:=a*b/2;
  p:=a+b+sqrt(a*a+b*b);
  writeln('Perimeter: ',p:5:3);
  writeln('Area: ',s:5:3);
  readln;
end.

[Кольша]

var
k,k1,s,p:integer;
begin
s:=(k1*k) div 2;
p:=k+k1+Sqrt((k*k)+(k1*k1));

[whatever]

Сообщение от Кольша

var
k,k1,s,p:integer;
begin
s:=(k1*k) div 2;
p:=k+k1+Sqrt((k*k)+(k1*k1));

Ну тогда уж

p:=round(k+k1+Sqrt((k*k)+(k1*k1)));

Да и не нужен тут integer, по школе помню, что целые числа в таких задачах очень редко получались.