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

Ответы:

Уля Афанасенко

13-07-2014 02:22

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Denis Voloshin

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Здравствуйте)Вводится натуральное число. Определить среднее арифметическое его цифр.Pascal) не могли бы помочь?» от пользователя Denis Voloshin в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!