Question

Дано действительное число S-площадь квадрата.Составить программу ,определяющую его сторону и периметр .

Answer 1

Program kol_vo_elementov;
var a, b, p:real;
begin
writeln('Введите число');
readln(a);
b:=sqrt(a);
p:=4*b;
writeln('b=',b);
writeln('p=',p);
end.