Для каждого элемента последовательности найти среднее значение его цифр

@Slavchik · Регистрация: 21.03.2014

Студворк — интернет-сервис помощи студентам

Вводится последовательность из н целых элементов. Для каждого элемента последовательности найти среднее значение его цифр. Создать функцию для расчета среднего значения цифр в числе.

@code-n'-help · 24.04.2014, 21:05

Строки учили? Мне проще на строках хотя можно и без них.

Добавлено через 5 минут

Pascal

function srednee(a:longword):real;
var sum:longoword;
     count:byte;
begin
  count:=0;
  while a<>0 do
  begin
    sum:=sum+a mod 10;
    inc(count);
    a:=(a-(a mod 10)) div 10; 
  end;
  srednee:=sum/count;
end;

ну а потом цыкликом читаем и проверяем и паралелльно выводим

@Slavchik · 24.04.2014, 21:29 **[ТС]**

Если не затруднит, можно всю программу целиком, пожалуйста

@code-n'-help · 24.04.2014, 21:36

ок секунду

Добавлено через 39 секунд
n вы считываете?

Добавлено через 2 минуты
обьясните как вам надо вводить выводить(или читаем число сразу выводим или прочитали всё и вывели потом всё)

@Slavchik · 24.04.2014, 22:25 **[ТС]**

Желательно прочитать все и вывести все. Заранее огромное спасибо!

@code-n'-help · 24.04.2014, 22:39

ок сейчас напишу

@Slavchik · 25.04.2014, 08:57 **[ТС]**

Спасибо!

@Slavchik 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 11
		1
	Для каждого элемента последовательности найти среднее значение его цифр 24.04.2014, 20:22. Показов 1642. Ответов 6 Метки нет (Все метки) Вводится последовательность из н целых элементов. Для каждого элемента последовательности найти среднее значение его цифр. Создать функцию для расчета среднего значения цифр в числе. 0

@Slavchik 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 11
	24.04.2014, 21:29 [ТС]	3
	Если не затруднит, можно всю программу целиком, пожалуйста 0

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
	24.04.2014, 21:36	4
	ок секунду Добавлено через 39 секунд n вы считываете? Добавлено через 2 минуты обьясните как вам надо вводить выводить(или читаем число сразу выводим или прочитали всё и вывели потом всё) 0

@Slavchik 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 11
	24.04.2014, 22:25 [ТС]	5
	Желательно прочитать все и вывести все. Заранее огромное спасибо! 0

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
	24.04.2014, 22:39	6
	ок сейчас напишу 0

@Slavchik 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 11
	25.04.2014, 08:57 [ТС]	7
	Спасибо! 0

Опции темы