Question

sa se scrie un program pascal care va determina si afisa perimetrul, aria si lungimea diagonalei intr-un patrat cu latura a

Answer 1

program patrat;var a,perimetrul,aria:integer;diagonala:real;begin        readln(a);        perimetrul:=a*4; writeln(perimetrul);        aria:=a*a;  writeln(aria);        diagonala:=sqrt(a*a+a*a);  writeln(diagonala:6:3);end.