persegi

var
s,dg,Ls,k:Real;
Begin
write ('masukan sisi :');readln(s);
dg:=sqrt(s*s+s*s);
Ls:=s*s;
k:=s+s+s+s;
writeln('diagonalnya :',dg:4:0);
writeln('luasnya :',Ls:4:0);
writeln('kelilingnya :',k:4:0);
end.    

download    

»»  Selengkapnya>>>