Среднее геометрическое трех чисел. Pascal

      Комментарии к записи Среднее геометрическое трех чисел. Pascal отключены

Главная Форумы Программирование Программирование на Pascal Среднее геометрическое трех чисел. Pascal

Помечено: 

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

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

    Написать программу, которая выводит среднее геометрическое трех вещественных чисел.

    Решение:

    program line_5;
    uses crt;
    var
      a, b, c, g: real;
    begin
      clrscr;
      write('a = '); readln(a);
      write('b = '); readln(b);
      write('c = '); readln(c);
      g:=exp(1/3*ln(a*b*c));
      write('Среднее геометрическое = ', g:4:2);
      readkey;
    end.

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