Программирование
+3Помогите с паскаль
Напишите пожалуйста программу паскаль для нахождения периметра и площади ромба по 2 диагоналям. Формула для площади (d1d2)/2
По дате
По рейтингу
1234567891011121314151617
program RombCalculation;
var
d1, d2, perimeter, area: real;
begin
writeln('d1: ');
readln(d1);
writeln('d2: ');
readln(d2);
perimeter := 4 * sqrt((d1 / 2) * (d1 / 2) + (d2 / 2) * (d2 / 2));
area := (d1 * d2) / 2;
writeln('Периметр: ', perimeter);
writeln('Площадь: ', area);
end.