Здравствуйте) Вводится натуральное число. Определить среднее арифметическое его цифр. Pascal) не могли бы помочь?

Question

Информатика

Ванюра

1 января, 04:02

Здравствуйте) Вводится натуральное число. Определить среднее арифметическое его цифр. Pascal) не могли бы помочь?

+5

Ответы (1)

Знаете ответ?

Тимоня · Answer 1

var

a, s, k : integer;

Sr : real;

begin

s : = 0; k : = 0;

readln (a) ;

While a > 0 do

begin

s : = s + a mod 10;

a : = a div 10;

k : = k + 1;

end;

Sr : = S/k;

writeln (Sr) ;

end.