Question

СРОЧНОООО!!!!! ДАЮ 15 БАЛЛОВ
Найти разность и среднее арифметическое двух чисел a, b. Числа целые, вводятся с клавиатуры. Переменную разность обозначить – R , среднее арифметическое - Sr​

Answer 1

program Nums;

var a, b, R: integer;

   Sr: real;

begin

 write('a=');

 readln(a);

 

 write('b=');

 readln(b);

 

 R := a - b; // разность

 Sr := (a + b) / 2.0; // среднее арифметическое

 

 writeln('R=', R);

 writeln('Sr=', Sr:2:3);

end.