с клавиатуры вводится 2 числа длинны катетов прямоугольного треугольника, вычислить перемитр и площадь треугольника?
Ответы
Ответ дал:
0
Var katOne, katTwo : integer;
Begin
Write('Введите катеты');
Readln(katOne, katTwo);
if (katOne > 0) and (katTwo > 0) then
writeln('Площадь = ', katOne*katTwo/2, 'Периметр = ', katOne + katTwo + sqrt(katOne*katOne + katTwo*katTwo)
else writeln('Error')
Readln()
End.
Begin
Write('Введите катеты');
Readln(katOne, katTwo);
if (katOne > 0) and (katTwo > 0) then
writeln('Площадь = ', katOne*katTwo/2, 'Периметр = ', katOne + katTwo + sqrt(katOne*katOne + katTwo*katTwo)
else writeln('Error')
Readln()
End.
Ответ дал:
0
Спасибо большое!!:)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад