Question

1).Дана площадь S квадрата. Вычислить длину стороны a и длину диагонали d .
2).В прямоугольном треугольнике заданы два катета a и b. Найти гипотенузу С и площадь S.

Answer 1

1)
var a,s:integer;
begin
readln(s);
writeln('Длина стороны = "' sqrt(s));
writeln('Длина диагонали = ', sqrt(s)*sqrt(2));
end.

2)

begin
readln(a,b);
writeln('Гипотенуза = ', sqrt((a*a)+(b*b)));
writeln('Площадь = ', (a*b)/2);
end.