с клавиатуры вводится 2 числа длинны катетов прямоугольного треугольника, вычислить перемитр

С клавиатуры вводится 2 числа длинны катетов прямоугольного треугольника, вычислить перемитр и площадь треугольника?

Задать свой вопрос
Николай Зохин
на паскале?
Данил Менн
Да
1 ответ
Var katOne, katTwo   :   integer;
Begin
Write('Введите катеты');
Readln(katOne, katTwo);
if (katOne gt; 0) and (katTwo gt; 0) then
   writeln('Площадь = ', katOne*katTwo/2, 'Периметр = ', katOne + katTwo + sqrt(katOne*katOne + katTwo*katTwo)
else writeln('Error')
Readln()
End.
София Борсякова
Спасибо огромное!!:)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт