Question

диагонали квадрата в паскале

Answer 1

var a, d: real;
begin
write('Сторона квадрата: ');
read(a);
d:= sqrt(2*sqr(a));
writeln('Диагональ равна: ', d);
end.