Question

Напишите программы для решения задач.Используйте операции div и mod.
Задано трёх значное число.Найдите среднее арифметическое цифр числа.

Answer 1

var

 n, n1, n2, n3: Integer;

begin

   Write ('Введите трехзначное число: ');

   ReadLn (n);

   if not ((n >= 100) and (n <= 999)) then begin

     Writeln ('Число не является трехзначным!');

     Exit;

   end;

   n1 := n div 100;

   n2 := (n div 10) mod 10;

   n3 := n mod 10;

   Writeln ('Среднее арифметическое цифр = ' + FloatToStr ((n1 + n2 + n3) / 3));

end;