Question

задано двузначное число найдите среднее арифметическое цифр числа используйте операции div и mod

Answer 1

var number,a,b:integer;
begin
writeln('Введите двузначное число');
readln(number);
a:=number div 10;
b:=number mod 10;
writeln(a,' - Первая цифра числа');
writeln(b,' - Вторая цифра числа');
writeln('Среднее арифметическое цифр числа = ',(a+b)/2 );
end.