Площадь и гипотенуза прямоугольного треугольника. Pascal

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

Главная Форумы Программирование Программирование на Pascal Площадь и гипотенуза прямоугольного треугольника. Pascal

Помечено: 

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

  • Автор
    Сообщения
  • #3749

    Даны катеты прямоугольного треугольника. Найти его площадь и гипотенузу.

    Решение:

    program line_3;
    uses crt;
    var
      a, b: real;
    begin
      clrscr;
      writeln('Введите катеты прямоугольного треугольника');
      write('a='); read(a);
      write('b='); read(b);
      writeln('Гипотенуза = ', sqrt(sqr(a)+sqr(b)));
      write('Площадь = ', a*b/2);
      readkey;
    end.

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