Дано целое число. Определить в этом числе количество цифр…

Question

Дано целое число. Определить в этом числе количество цифр, сумму чисел, среднее арифметическое. (Pascal)

Answer 1

45

chenger

20 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: