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

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

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

Помечено: 

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

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

    Найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры.

    Решение:

    program line_2;
    uses crt;
    var
      a, b, c: real;
    begin
      clrscr;
      write('a='); read(a);
      write('b='); read(b);
      write('c='); readln(c);
      write('Среднее арифметическое a, b и c = ');
      write(((a+b+c)/3):4:2);
      readkey;
    end.

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