Даны основания и вышина равнобедренной трапеции. Отыскать ее периметр.Необходимо сделать программный

Даны основания и высота равнобедренной трапеции. Найти ее периметр.
Необходимо сделать программный код в Лазарус

Задать свой вопрос
1 ответ
Var
A,B,C:integer;
Begin
WriteLn('Введи длины оснований через пробел');
ReadLn(A,B);
WriteLn('Введи длину вышины');
ReadLn(C);
WriteLn(A+B+2*sqrt(sqr((A-B)/2) + sqr(C)));
ReadLn
End.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт