Паскаль. даны два числа a и b. составить функцию, вычисляющую периметр ромба, диагоналями которого являются числа a и b.

Существует формула для вычисления периметра ромба через диагонали:

, где d1,d2 - диагонали ромба.

Составляем программу:

function p(a,b: real): real;

begin

p:=4*sqrt((a/2)*(a/2)+(b/2)*(b/2));

end;

var a,b: real;

begin

readln(a,b);

write('периметр: ',p(a,b));

end.