Задание:
Дано целое число. Определить в этом числе количество цифр, сумму чисел, среднее арифметическое. (Pascal)
Решение:
Program xxx; var n, s, k, c: integer; sa: real; beginwrite ('введите число n-'); readln (n); k: =0; s: =0; while n>0 dobeginc: =n mod 10; s: =s+c; k: =k+1; n: =n div 10end; write ('сумма цифр=', s); write ('количество цифр=', k); sa: =s/k; write ('среднее арифметическое=', sa) end.
Знаете другой ответ?