Question

Написать программу в Pascal, которая вычисляет площадь треугольника по двум сторонам.

Answer 1

program s;
uses crt;
var s,h,a:real;
begin
clrscr;
writeln('введите основание и высоту через пробел');
readln(a,h);
s:=0.5*a*h;
writeln('s= ',s);
readkey;
end.
при вводе 2 и 5 площадь будет равна 5

Answer 2

вот еще одна на всякий:

Answer 3

program a1; 
var x,y,z,p:real; 
begin 
write('Vvedite razmer pervogo kateta:'); 
readln(x); 
write('Vvedite razmer vtorogo kateta:'); 
readln(y); 
write('Vvedite razmer ugla mezhdu nimi:'); 
readln(z); 
p:=(x*y*sin(z))/2; 
writeln('Ploshad ravna:',p:6:2); 
readln; 
end.