Ввести с клавиатуры значение площади прямоугольного треугольника.( треугольник равнобедренный). Вывести на экран значение катетов, гипотенузы. Использовать процедуру для получения результатов "Выходные переменные"
Ввести с клавиатуры значение площади прямоугольного треугольника.( треугольник равнобедренный). Вывести на экран значение катетов, гипотенузы. Использовать процедуру для получения результатов "Выходные переменные"
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы