Составить программу с функцией в паскаль которая находит среднее арифметическое двух чисел

Question

Вевея

15 сентября, 07:18

+1

Ответы (1)

Знаете ответ на вопрос?

Артемий · Answer 1

Var a, b : Real;

Function SrAr (aa, bb : Real) : Real;

Begin

SrAr: = (aa+bb) / 2;

end;

Begin

Readln (a, b) ;

Writeln (SrAr (a, b)) ;

end.