Здравствуйте)Вводится натуральное число. Определить среднее арифметическое его цифр.Pascal) не могли бы помочь?
Здравствуйте)Вводится натуральное число. Определить среднее арифметическое его цифр.Pascal) не могли бы помочь?
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы