Информатика

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


<< Предыдущий вопрос Следующий вопрос >>

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.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы