Question

Pascal.Вычислить периметр квадрата если дана его площадь s

Answer 1

Корень квадратный от s берешь - это будет одна сторона, потом умножаешь на 4 - это будет периметр.
writeln('Периметр = ", sqrt(s) * 4);

Answer 2

Program z1; var s,k:longint; Begin Readln(s); k:=trunc(sqrt(s)); Writeln(k); End.