Язык програмирования PASKAL/задача:Даны катеты прямоугольного треугольника a и b.Найти гипотенузу c и P периметр:P=a+b+cc=корень из a2+b2РЕШИТЕ ПОЖАЛУЙСТА СРООООЧНО!!!!))))***
Язык програмирования PASKAL/
задача:
Даны катеты прямоугольного треугольника a и b.Найти гипотенузу c и P периметр:
P=a+b+c
c=корень из a2+b2
РЕШИТЕ ПОЖАЛУЙСТА СРООООЧНО!!!!))))***
Гость
Ответ(ы) на вопрос:
ГостьProgram z1;
var a,b,c,P:real;
begin
Writeln('Введите стороны a и b: ');
Write('a = '); read(a);
Write('b = '); read(b);
c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
Writeln('Гипотенуза равна: ',c);
Writeln('Периметр треугольника равен: ',P);
end.
Не нашли ответ?
Похожие вопросы