program p1;
var l : integer;
begin
write('Introdu lungimea laturii = '); readln(l);
writeln('Diagonala = ', (l * sqrt(2)):0:2);
end.
Show life that you have a thousand reasons to smile
© Copyright 2024 DOKU.TIPS - All rights reserved.
program p1;
var l : integer;
begin
write('Introdu lungimea laturii = '); readln(l);
writeln('Diagonala = ', (l * sqrt(2)):0:2);
end.