Ответы 1

  • В "старом" стиле:var  a, h: real;begin  writeln('Введите длину стороны и длины проведённой к ней высоты:');  readln(a, h);  writeln('Площадь треугольника равна ', a * h / 2)end.Тоже самое, но в немного осовремененном виде (у меня запускается на PascalABC.NET 3.3 сборка 1531, если у вас не работает - обновите программу):begin  var (a, h) := ReadReal2('Введите длину стороны и длины проведённой к ней высоты:');  println('Площадь треугольника равна', a * h / 2);end.
    • Автор:

      trey
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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