var s,a,b: real;
begin
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
s:=(a+b)/2;
writeln('среднее арифметическое равняется:',s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Ввести первое число, ввести второе число, и найти их среднее геометрической значение
var s,a,b: real;
begin
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
s:=(a+b)/2;
writeln('среднее арифметическое равняется:',s);
end.