Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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