Question

Зададено двузначное число. Найдите средне арифметическое цифр числа. Нужно составить программу

Answer 1

begin
var a:=ReadInteger;
var w,q: integer;
w:=a div 10;
q:=a mod 10;
write((q+w)/2);
end.