Площадь треугольника через основание и высоту. Pascal

Программирование Программирование на Pascal Площадь треугольника через основание и высоту. Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 1 год, 2 мес. назад.

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #3754

    Дано основание и высота треугольника. Узнать, чему равна его площадь.

    Решение:

    program line_10;
    uses crt;
    var h, o, s: real;
    begin
      clrscr;
      write('Основание > '); readln(o);
      write('Высота > '); readln(h);
      s:=o/2*h;
      write('Площадь треугольника: ', s:4:2);
      readkey;
    end.

Просмотр 1 сообщения - с 1 по 1 (всего 1)

Для ответа в этой теме необходимо авторизоваться.