Даны два целых числа. Найти их среднее арифметическое и среднее геометрическое.
program sdfsf;
var a,b:integer;
begin
readln(a);
readln(b);
srednee:=(a+b)/2;
writeln(a);
end.
По дате
По рейтингу
Числа то исходные целые, но результат их не будет целым
srednee:=(a+b)/2; {тут srednee Real должен быть описан }
Ну и поищи в нете, что такое среднее геометрическое
Среднее геом. двух чисел
sredg:=sqrt(a*b);
wrireln(srednee,' ', sredg);