Задание 1.Помогите написать правильную программу в паскале. Я написала, но с ответом не сходится, где ошибка?
program var_21;
var x,C:integer;
H:real;
begin
write('ВВедите гипотенузу C треугольника: ');
read(C);
write('острый угол x (град): ');
read(x);
H:=C*sin(x)*cos(x);
writeln('Высота треугольника равна',' ', H:5:2);
end.
program var_21;
var x,C:integer;
H:real;
begin
write('ВВедите гипотенузу C треугольника: ');
read(C);
write('острый угол x (град): ');
read(x);
H:=C*sin(x)*cos(x);
writeln('Высота треугольника равна',' ', H:5:2);
end.
More Questions From This User See All
Answers & Comments
H:=C*sin(x*pi/180)*cos(x*pi/180);