Помогите пожалуйста! составить программу вычисляющую сторону ромба если известны 2 диагонали?
Помогите пожалуйста! составить программу вычисляющую сторону ромба если известны 2 диагонали?
Ответ(ы) на вопрос:
Гость
Program P1;
Uses Crt;
Var a, b, c : Real; Begin
ClrScr;
Write('Введи 2 диагонали через пробел: ');
Readln(a, b);
c := sqrt(sqr(a / 2) + sqr(b / 2));
Write('Сторона ромба = ', c : 0 : 5); Readln;
End.
Не нашли ответ?
Похожие вопросы