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

Question

Дано два целых числа. Написать программу, определяющую среднюю арифметическую этих чисел. Результат напечатать с двумя числами после запятой.

Comments

На каком языке прграммирования

---

Pascal

Answer 1

Begin 
Var k,l,m : integer; 
 var v: double; 
 writeln('Введите два цисла');
  ReadLn(k);  
  ReadLn(l);  
  v:=(k+l)/2;    
writeln('Среднее арифметическое ',v);
end.

Comments

Зачем тут цикл?

---

согласен, не заметил, хотел изначально сделать цикл для ввод исходных данных

---

Не сумма, а среднее арифметическое)

Answer 2

Var a, b: real;
begin
  read(a, b);
  write((a + b) / 2 : 0 : 2)
end.