// PascalABC.NET // Даны катеты прямоугольного треугольника. // Найти его гипотенузу и периметр.
var a, b : real;
begin write('Введите длину катета а: '); readln(a); write('Введите длину катета b: '); readln(b); var c := sqrt( sqr(a) + sqr(b) ); var p := a + b + c; writeln('Длина гипотенузы равна ', c); writeln('Периметр треугольника равен ', p) end.
Answers & Comments
Verified answer
// PascalABC.NET// Даны катеты прямоугольного треугольника.
// Найти его гипотенузу и периметр.
var
a, b : real;
begin
write('Введите длину катета а: ');
readln(a);
write('Введите длину катета b: ');
readln(b);
var c := sqrt( sqr(a) + sqr(b) );
var p := a + b + c;
writeln('Длина гипотенузы равна ', c);
writeln('Периметр треугольника равен ', p)
end.