Question

Ввести с клавиатуры значение площади прямоугольного треугольника.( треугольник равнобедренный). Вывести на экран значение катетов, гипотенузы. Использовать процедуру для получения результатов "Выходные переменные"

Answer 1

program Project2;
 {$APPTYPE CONSOLE}
var s,a,c:Real;
begin 
 Readln(s); 
 s:=s*2; 
 a:=Sqrt(s); 
 c:=Sqr(a)+sqr(a); 
 writeln('katetu',a:0,' gipotenusa',c:0); 
 readln;
end.