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

Вычислите периметр и площадь прямоугольного треугольника если стороны треугольника вводятся с клавиатуры (a, b, c; a,d-катеты)

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

Program z1;var a,b,c,d,P,S:real;
begin
writeln (Введите стороны треугольника);
readln (a,b,c);
P:=a+b+c;
writeln (Периметр треугольника=,P);
writeln (Введите катеты);
readln (a,d);
S:=((a*b)/2);
writeln (Площадь прямоугольного треугольника=,S);
end.