Question

известны диагонали ромба D1 и D2. Найдите периметр P и площадь S .Составьте и арифметические выражения, используя таблицу .Запишите линейный алгоритм для задачи.
Помогите пожалуйста !!!!!!!!!!

Answer 1

Program Number2;

Var  d1,d2 : double; 

Begin  
read(d1, d2);  
write('Периметр: ');
writeln(4*sqrt(sqr(d1/2)+sqr(d2/2)));
write('Площадь: ');
writeln( (d1*d2)/2);
End.