Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

помогите пожалуйста! составить программу вычисляющую сторону ромба если известны 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.