написать в программе паскать: вычислить и напечатать длину стороны и длину диагонали...

Question

написать в программе паскать:

вычислить и напечатать длину стороны и длину диагонали квадрата, если его периметр равен 10,4 см

Answer 1

var p,d,n:integer;

begin

writeln('введите периметр');

readln(p);

n:=p/4;

d:=SQRT(n^2+n^2)

writeln('сторона=',n);

writeln('диагональ=,d);

end.