var a,S,P: real;
begin
writeln('Введите S квадарата: ');
readln(S);
a:=sqrt(S);
P:=a*4;
writeln('P = ',P);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,S,P: real;
begin
writeln('Введите S квадарата: ');
readln(S);
a:=sqrt(S);
P:=a*4;
writeln('P = ',P);
end.