Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Написать программу в Паскаль, помогите пожалуйста

Ответ оставил Гость

Program prog;
uses crt;

var a,b, c, h, s : real;

begin
clrscr;

Write(Основание а = );
readln(a);
Write(Основание b = );
readln(b);
Write(Угол с при большем основании = );
readln(c);

H:=(a-b)/2*(sin(c)/cos(c));
s:=(a+b)*h/2;

writeln(S = ,s:0:3);
end.