2. Даны катеты прямоугольного треугольника . Найти его гипотенузу и периметр напишите

2. Даны катеты прямоугольного треугольника . Отыскать его гипотенузу и периметр напишите программку паскаль

Задать свой вопрос
1 ответ
// 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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт