Задание:
Даны два числа a и b. Найди их средне арифметическоеa+b) /2, если a=4,6; b=3,4
Решение:
Program qq; uses crt; var a,b,c: real; beginwrite ('Введите число a '); read (a); write ('Введите число b '); read (b); c: =(a+b) /2; writeln ('Среднее арифметическое этих чисел равно ',c); end.
Знаете другой ответ?