1.Площадь S квадрата вводится с клавиатуры. Вычислить длину стороны a и длину диагонали d.
2. В прямоугольном треугольнике заданы два катета a и b, значения которых вводятся с клавиатуры. Найти гипотенузу c и площадь S.
Язык: Pascal

Ответ:

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.