Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Написать процедуру и функцию, находящие среднее арифметическое двух чисел.

Ответ оставил Гость

Function average( x, y: real );
var c: real;
begin
c := ( x + y ) / 2;
writeln(Среднее арифметическое двух чисел с помощью функции: , c);
end;

procedure average_p( x, y: real );
var c: real;
begin
c := ( x + y ) / 2;
writeln(Среднее арифметическое двух чисел с помощью процедуры: , c);
end;

var a, b: real;
begin
write(Введите число a: );
readln(a);
write(Введите число b: );
readln(b);
average(a,b);
average_p(a,b);
end.