Завтра экзамен!!Помогите пожалуйста составить программу!!
!Используя функцию или процедуру вычислить среднее арифметическое чисел X , Y, Z
!Используя функцию или процедуру вычислить среднее арифметическое чисел X , Y, Z
More Questions From This User See All
Answers & Comments
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.
Написано "Используя функцию или процедуру", т.е. либо функция, либо процедура!