разработайте проект нахождение длины гипотенузы и площади прямоугольного треугольника по известным катетам;
нужен листинг программы для Delphi
Ответы
Ответ дал:
0
var
a, b: real;
begin
readln(a, b);
Writeln('c = ', Sqrt(a * a + b * b));
Writeln('S = ', a * b * 0.5);
end.
a, b: real;
begin
readln(a, b);
Writeln('c = ', Sqrt(a * a + b * b));
Writeln('S = ', a * b * 0.5);
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад