Вопрос, который вызвал трудности
Напишите программу: Заданы длины двух катетов в прямоугольном треугольнике. Вычислить длину гипотенузы, площадь треугольника, величины ег
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Напишите программу: Заданы длины двух катетов в прямоугольном треугольнике. Вычислить длину гипотенузы, площадь треугольника, величины ег
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program zadacha_2;
var
a,b,c,s, alf, bet:real;
begin
writeln(‘введите длины катетов’);
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
c:=sqrt(sqr(a)+sqr(b));
alf:=arctan(b/a);
bet:=pi/2-alf;
s:=a*b/2;
writeln(‘гипотенуза=’, c);
writeln(‘площадь треугольника=’,s);
writeln(‘углы треугольника alf=’,alf,’bet=’,bet);
readln;
end.
var
a,b,c,s, alf, bet:real;
begin
writeln(‘введите длины катетов’);
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
c:=sqrt(sqr(a)+sqr(b));
alf:=arctan(b/a);
bet:=pi/2-alf;
s:=a*b/2;
writeln(‘гипотенуза=’, c);
writeln(‘площадь треугольника=’,s);
writeln(‘углы треугольника alf=’,alf,’bet=’,bet);
readln;
end.