Помогите сосьавить программу назождения среднего арефметического двух чисел
Помогите сосьавить программу назождения среднего арефметического двух чисел
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b:integer;
r:real;
begin
readln(a);
readln(b);
r:=(a+b)/2;
writeln(r);
end.
Не нашли ответ?
Похожие вопросы