Найти среднее арифметическое цифр каждого из двух чисел

@viktor2014 · Регистрация: 19.01.2013

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

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

@CodeR · 22.02.2013, 13:11

Pascal

Function F(n:integer):real;
Var k:byte;
    sr:real;
Begin
    k:=0;sr:=0;
    While n>0 do
    Begin
      sr:=sr+n mod 10;
      n:=n div 10;
      inc(k);
    End;
    F:=sr/k;
End;

@viktor2014 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 44
		1
	Найти среднее арифметическое цифр каждого из двух чисел 21.02.2013, 19:16. Показов 2924. Ответов 1 Метки нет (Все метки) Вводятся 2 натуральных числа. Найти среднее арифметическое цифр каждого из них (создать функцию для нахождения среднего арифметического цифр произвольного натурального числа). 0

Опции темы

Найти среднее арифметическое цифр каждого из двух чисел

Решение