Question

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

Answer 1

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