Question

Задано двузначное число. Найдите среднее арифметическое цифр числа. Напишите программу для решения задачи. Используя операции div и mod. Срочно, прошу. Даю 50 баллов за правильное решение!!!

Answer 1

Program n1;
var a: integer;
begin
readln(a);
write(((a div 10)+(a mod 10))/2);
end.