Даны два числа a и b.найди их средне арифметическое: (a+b)/2, если a=4.6; b=3.4
паскаль абц
Program qq; uses crt; var a,b,c:real; begin write('Введите число a '); read(a); write('Введите число b '); read(b); c:=(a+b)/2; writeln('Среднее арифметическое этих чисел равно ',c); end.
Var a,b:real; begin read (a,b); write ((a+b)/2:0:10); end.