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

October 2021 1 10 Report

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

APALoff 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.

1 votes Thanks 1