👤

calcularea diagonalei unui pătrat în PASCAL. Urgent dau coroana

Răspuns :

program p1;

var l : integer;

begin

   write('Introdu lungimea laturii = '); readln(l);

   writeln('Diagonala = ', (l * sqrt(2)):0:2);

end.