Помогите сосьавить программу назождения среднего арефметического двух чисел
Var
a,b:integer;
r:real;
begin
readln(a);
readln(b);
r:=(a+b)/2;
writeln(r);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
