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