Составить программу для вычисления периметра ромба, диагонали которого равны D1 и D2.

Question

Информатика

Кося

10 января, 06:10

Составить программу для вычисления периметра ромба, диагонали которого равны D1 и D2.

+3

Ответы (1)

Знаете ответ на вопрос?

Аполлинарий · Answer 1

Program romb;

Var

d1, d2, a, p:real;

Begin

Write ('Введите диоганали ромба: ') ;

Readln (d1, d2) ;

a: = (sqrt (sqr (d1) + sqr (d2))) / 2;

P:=a*4;

Writeln ('Периметр данного ромба: ', p) ;

End.