Нужно вычислить среднее арифметическое двух вещественных чисел, если можно программу
Нужно вычислить среднее арифметическое двух вещественных чисел, если можно программу
Гость
Ответ(ы) на вопрос:
ГостьProgram pr; Var a, b:real; Write('Введите A: ') ; Readln(a) ; Write('Введите B: ') ; Readln(b) ; Writeln('Среднее арифметическое: ',(a+b)/2); End.
Не нашли ответ?
Похожие вопросы