Напишите программы на паскаль . 1) вычислить площадь равнобедренного треугольника, если известна боковая сторона и высота, проведенная к основанию треугольника. 2) определить время встречи двух пешеходов, идущих навстречу друг другу, если известно, что расстояние между l, скорость первого пешехода v1, скорость второго пешехода v2.
var a,h,b,s:real;
begin
write('Введите длину боковой стороны = ');
readln(a);
write('Введите высоту = ');
readln(h);
b:=sqrt(a*a-h*h); // половина основания треугольника
s:=b*h;
writeln('Площадь треугольника = ',s:6:2);
end.
2)
var L,V1,V2,t:real;
begin
write('Введите расстояние между пешеходами (км) = ');
readln(L);
writeln('Введите скорости пешеходов через пробел (км/ч)');
readln(V1,V2);
t:=L/(V1+V2);
writeln('Пешеходы встретятся через ',t ,' час');
end.