• Напишите программы на паскаль пожалуйста.

    1) Вычислить площадь равнобедренного треугольника, если известна боковая сторона и высота, проведенная к основанию треугольника.
    2) Определить время встречи двух пешеходов, идущих навстречу друг другу, если известно, что расстояние между пешеходами L, скорость первого пешехода V1, скорость второго пешехода V2.

Ответы 1

  • 1)var a,h,b,s:real;beginwrite('Введите длину боковой стороны = ');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;beginwrite('Введите расстояние между пешеходами (км) = ');readln(L);writeln('Введите скорости пешеходов через пробел (км/ч)');readln(V1,V2);t:=L/(V1+V2);writeln('Пешеходы встретятся через ',t ,' час');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years