Question

(Pascal ABC)
Дано двузначное число.Найти среднее арифметическое(при помощи div и mod)

Answer 1

var
a:integer;
begin
 Readln(a);
 Writeln((a div 10 + a mod 10)/2)
end.

Пример:
42
3