Задать вопрос
28 февраля, 15:49

Даны три числа. найти среднее арифметическое и среднее геометрическое этих чисел.

Паскаль, для программы Algo

+5
Ответы (1)
  1. 28 февраля, 17:16
    +2
    Program Task;

    Var a, b, c : integer;

    Var alg, geom : real;

    begin

    write ('Введите первое число:') ;

    readln (a) ;

    write ('Введите второе число:') ;

    readln (b) ;

    write ('Введите третье число:') ;

    readln (c) ;

    geom: = (ln (a*b*c) / 3) ;

    alg: = (a+b+c) / 3;

    writeln ('Среднее геометрическое: ', geom) ;

    writeln ('Среднее арифметическое: ', alg) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Даны три числа. найти среднее арифметическое и среднее геометрическое этих чисел. Паскаль, для программы Algo ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы