помогите пожалуйста написать программу на фортране
Ввести положительные числа a, b,c . Определить, существует ли
треугольник с длинами сторон a, b,c и выдать об этом сообщение. Если
треугольник существует, то определить является ли он равносторонним.

  • program q79885248
    implicit none

    real :: a, b, c

    print *, "введите a, b, c"
    read *, a, b, c

    if ((a + b > c) .and. (a + c > b) .and. (b + c > a)) then
    print *, "треугольник существует"
    if ((a == b) .and. (a == c)) then
    print *, "и является равносторонним"
    end if
    else
    print *, "треугольник не существует"
    end if

    end program q79885248

    Есть несколько стандартов и реализаций фортрана, здесь F90 и gfortran. Другая реализация может и не скомпилировать данную программу.

    Источник: с тебя пиво
  • 500руб)
  • 499 руб. :)