Дано шестизначное число А. Найти сумму цифр числа и среднее арифметическое.
ПАСКАЛЬ!

Предыдущий
вопрос Следующий
вопрос

program SumAndAverage;

var
num, sum, average: integer;

begin
write('Введите шестизначное число: ');
readln(num);

sum := 0;
sum := (num div 100000) mod 10 + (num div 10000) mod 10 + (num div 1000) mod 10 + (num div 100) mod 10 + (num div 10) mod 10 + num mod 10;

average := sum / 6;

writeln('Сумма цифр числа: ', sum);
writeln('Среднее арифметическое: ', average:0:2);
end.