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

Question

Гость

Ответ(ы) на вопрос:

Гость

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

Accepted Answer

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