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

Question

Информатика

Игоша

17 июня, 22:58

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

+4

Ответы (1)

Знаете ответ на вопрос?

Костя · 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.